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pRom 


t radicionalmente se tiende a pensar en los len- 
JH m guajes de programación como una forma más o 
/ menos sofisticada de dar instrucciones a un or- 

/ ií-, m denador. Sin embargo, son algo más: cada len- 
guaje lleva asociado un determinado modelo de 
/ 1H la máquina. Aunque se utilice siempre el mismo 

/ Wgl equipo material, basta emplear lenguajes dife- 

rentes para conferir al ordenador distintas per- 
1 1 v ' sonalidades, puesto que el programador piensa 

en términos de variables, no de celdas de memoria; en ficheros 
de datos y no en dispositivos de entrada y salida, o en fórmulas 
en lugar de en registros y sumadores. 

El objetivo de este libro es que el lector obtenga una idea cla¬ 
ra de las posibilidades de aplicación de LISP y adquiera conoci¬ 
mientos suficientes para entender los programas escritos en este 
lenguaje, así como para poder confeccionar los suyos propios. 

El tratamiento de la estructura del lenguaje no pretende ser 
exhaustivo ni excesivamente profundo, para facilitar la compren¬ 
sión del mismo al lector novel. Sin embargo, se ha intentado man¬ 
tener en todo momento el rigor en los conceptos expresados, de 
modo que esta lectura sirva como base sólida para una futura pro- 
fundización. 

LISP es uno de los lenguajes más simples que se pueden con¬ 
cebir. Su uso induce al programador habituado a los más conoci¬ 
dos lenguajes algebraicos a desarrollar un concepto enteramente 
nuevo de la estructura de un programa. 

Este es el primer lenguaje que suministra una estructura bá¬ 
sica sencilla con unas amplias posibilidades de extensión. Ha sido 
aplicado a problemas que implican manipulación de símbolos y 
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a desarrollos en el campo de la Inteligencia Artificial. Esto es de¬ 
bido, por una parte, a su gran facilidad para el tratamiento de sím¬ 
bolos, y por otra, a que su estructura interactiva se adapta bien a 
la tendencia de los programadores de Inteligencia Artificial a ser 
perezosos e indisciplinados, como viajeros que rechazan trazarse 
un recorrido antes de dirigirse a parte alguna. 







LISP: INTRODUCCION 


ISP fue desarrollado a final de los años cincuen¬ 
ta por John McCarthy, del Instituto Tecnológico 
de Massachusetts (MIT), que originalmente creó 
una versión primitiva del mismo bastante difícil 
de leer por un ser humano. Poco después lo mo¬ 
dificó para desarrollar un programa matemático 
que requería que tanto los procedimientos 
como los datos tuvieran la misma sintaxis. El re¬ 
sultado fue algo bastante parecido a la forma ac¬ 
tual del lenguaje. Su nombre deriva de LISt Proccesing, puesto 
que tanto los programas como los datos se estructuran en forma 
de listas. 

El lector debe saber que el LISP no ha sido normalizado de 
la misma forma que otros lenguajes de programación, como pue¬ 
da ser el FORTRAN. En este libro se utiliza el dialecto conocido 
como Common Lisp, uno de los más recientes y extendidos. Al fi¬ 
nal haremos algunos comentarios sobre otros dialectos y daremos 
unas indicaciones sobre la forma de compatibilizarlos entre sí. 

Cabe destacar que, aunque asociado tradicionalmente a la In¬ 
teligencia Artificial, el lenguaje LISP tiene ciertas características 
que facilitan la tarea del programador en aplicaciones muy varia- 
< las. Por ejemplo, en áreas como el diseño de circuitos integrados 
VLSI, el proceso de señales digitales, la enseñanza de la informá¬ 
tica, el desarrollo de sistemas informáticos (como sistemas opera¬ 
tivos, compiladores, intérpretes y programas de utilidades diver¬ 
sas), o el manejo de símbolos matemáticos, los entornos de traba¬ 
jo LISP pueden llegar a competir (o compiten ya actualmente) en 
eficiencia con los sistemas basados en PASCAL o FORTRAN. 

Para el usuario de pequeños ordenadores personales hay en 
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el mercado mini-sistemas L1SP de alta calidad, adecuados para 
aprender el lenguaje y escribir programas sencillos. Sin embargo, 
estas versiones están limitadas por la escasez de memoria y el 
alto consumo de tiempo de proceso. Con el desarrollo de orde¬ 
nadores más avanzados podrán paliarse estos defectos; entretan¬ 
to, con la lectura de los restantes capítulos se podrá aprender a 
manejar los sistemas LISP disponibles hasta el momento y estar 
preparado para la tecnología que vendrá en un futuro próximo. 

Antes de comenzar a describir el lenguaje LISP, conviene ha¬ 
cer una serie de comentarios sobre la formalización de los pro¬ 
cesos y el concepto de funciones y datos. El lector experimenta¬ 
do puede omitirlos y continuar la lectura en el capítulo 2. 

Formalización 

El razonamiento formal es un método de gran importancia 
para tratar el mundo que nos rodea, puesto que constituye la base 
de la ciencia y las matemáticas modernas. 

Al tratar con los ordenadores debemos indicarles con preci¬ 
sión qué es lo que deben hacer. Esto lo hacemos con los progra¬ 
mas, que no son sino la descripción de una tarea. 

Prácticamente todas las tareas, entendiendo como tales cual¬ 
quier actividad desarrollada por un ente capaz de influir sobre su 
entorno (ser humano, animal), pueden ser formalizadas y, por tan¬ 
to, simuladas por un programa. Aquí no está incluido el tipo de ra¬ 
zonamiento que nos lleva a escribir o interpretar una poesía, o a 
sentir temor o necesidad de algo, por ejemplo. 

Un ejemplo de formalización de una acción es el proceso de 
adquisición de un ordenador personal: 

— Determinar de nuestras necesidades. 

— Dirigirnos a la tienda de ordenadores más cercana. 

— Pedir información sobre los modelos existentes en el mer¬ 
cado. 

— Seleccionar aquellos cuyas prestaciones satisfagan nues¬ 
tras necesidades presentes y futuras. 

— Elegir entre este grupo aquel que ofrezca mejores condi¬ 
ciones económicas. 

Este proceso tiene un nivel de detalle suficiente como para 
que una persona mínimamente familiarizada con los ordenadores 
pueda seguirlo. Sin embargo, es algo demasiado vago para un or¬ 
denador. Este no sabe, por ejemplo, qué es una tienda de orde¬ 
nadores o qué criterio de selección debe seguirse en la valora¬ 
ción de las prestaciones. 


Al trabajar en LISP se tiene la importante ventaja sobre otros 
lenguajes de programación de poder tratar con facilidad símbo 
los que representan conceptos, como ordenador o modelos de or¬ 
denadores. Sin embargo, sigue presente el problema básico: de¬ 
bemos describir de forma precisa y completa el procedimiento 
que debe seguirse, teniendo en cuenta las posibles incidencias, 
como puede ser en el caso anterior que la tienda esté cerrada o 
que no podamos pagar ninguno de los ordenadores selecciona¬ 
dos, por ejemplo. 

Funciones y datos 

En cualquier lenguaje, pero especialmente en LISP, se utilizan 
de forma constante los conceptos de función y de datos. 

En general, los datos son manipulados por las funciones para 
obtener nuevos datos. Una forma muy ilustrativa de representar 
esto es considerar la función como una fábrica que dispone de to¬ 
dos los contenidos necesarios para realizar un proceso a determi¬ 
nado tipo de datos. Por ejemplo, la fábrica "PADRE-DE" tiene ac¬ 
ceso a toda la información necesaria para hallar el nombre del pa¬ 
dre de la persona cuyo nombre se suministra como dato de en¬ 
trada; este ejemplo lo tenemos representado en la figura 1. Al in¬ 
troducir el nombre Juan en la fábrica se obtiene como producto 
el nombre del padre de Juan, que es Pedro. 

Conviene aquí hacer una puntualización: podemos conside¬ 
rar la fábrica a dos niveles: un nivel material, al cual corresponde 
el proceso físico de transformación, y un nivel administrativo, al 
que corresponde el proceso burocrático de la misma. Con un 
ejemplo se aclararán estas dos ideas: llega un pedido a una fábri¬ 
ca de clavos; por ejemplo, una caja de bobinas de alambre. En pri- 



Figura l.—El padre de Juan es Pedro. 
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Figura 2 — El padre del padre de Juan es Federico. 


mer lugar éste es identificado a través del albarán en donde se 
detalla el contenido del mismo; una vez hecho esto se lleva a la 
sección correspondiente, donde sufre una serie de transformacio¬ 
nes. Al final de ellas se obtienen los clavos, que se ven reflejados 
en el nivel administrativo como una nota en la que se especifican 
sus características. 

Pues bien, las funciones en LISP realizan un proceso análogo. 
Reciben unos datos de entrada (el albarán), que normalmente son 
usados para representar a los objetos con los que trabajan (las bo¬ 
binas de alambre), y devuelven el resultado (los clavos) asociado 
a unos datos de salida que lo representan (la nota de caracterís¬ 
ticas). 

Al igual que los productos elaborados por una fábrica pue¬ 
den ser transformados por otra (la bobina de alambre fue el pro¬ 
ducto elaborado por otra fábrica a partir del metal correspondien¬ 
te, por ejemplo), las funciones pueden encadenarse para realizar 
transformaciones sucesivas de los datos (Fig. 2). Esto viene a ser 
equivalente a definir una nueva función que haga todo el proceso 
seguido (Fig. 3) y posteriormente aplicársela a los datos de en¬ 
trada (Fig. 4). 




Figura 3— El padre del padre de una persona es su abuelo. 




Figura 6.— Los hermanos de Juan son Antonio, Laura y Miguel. 



MULTIPLICADO POR' 


0 




Figura 7.—El orden de los datos es importante en determinadas fun¬ 
ciones. 


Las funciones pueden tener varios argumentos de entrada 
(Fig. 5) o de salida (Fig. 6). En algunos casos el orden en que se 
suministren estos argumentos es indiferente y en otros es muy im¬ 
portante. Las funciones multiplicación y división son un ejemplo 
de cada uno de estos tipos de funciones (Fig. 7). 

Las funciones que dan como valor de salida los valores cierto 
o falso se denominan predicados. Se utilizan para comprobar si 
los datos de entrada cumplen unos requisitos. En la figura 8 hay 
un ejemplo de predicado en el que el orden de los datos de en¬ 
trada es importante, puesto que el primero de ellos es el hijo y 
los dos siguientes son los padres. 

Los predicados pueden combinarse con otras funciones para 
formar nuevos predicados. Por ejemplo, SOBRINO-DE?, puede 
construirse a partir de HIJO-DE y HERMANO-DE (Fig. 9). 

En LISP hay muchos tipos diferentes de datos y es posible tra¬ 
bajar con funciones adecuadas a cada uno de ellos. A lo largo de 
este libro se introducirán paulatinamente las funciones más impor¬ 
tantes, con numerosos ejemplos para su mejor comprensión. 
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TIPOS BASICOS DE DA TOS 



N LISP, una correcta comprensión de los tipos 
de datos es imprescindible para poder utilizar 
toda la potencia del lenguaje. Los tipos básicos 
dentro del variado repertorio de LISP son: nú¬ 
meros, símbolos, cadenas de caracteres, listas, 
matrices, estructuras y funciones. 

El concepto de expresión engloba a todos 
los tipos y es la unidad básica de programa en 
LISP. 


Números 

El LISP soporta varios tipos de números, como son: 

• Enteros (ej. 0, -10, 56, 123456, ...) 

• Coma flotante o decimales (ej. 0.1, 10.27, 0.1258,...). De éstos 
existen varias longitudes para proveer la adecuada preci¬ 
sión o eficiencia en los cálculos. 

• Complejos (ej. (2,3), (5.1,2), ...). Representados en forma car¬ 
tesiana; sus partes imaginaria y real pueden ser de los ti¬ 
pos anteriores, aunque no de distinto tipo entre sí. 


Símbolos 


Un símbolo es un conjunto de caracteres que empieza por 
una letra o un número y NO es un número. Ejemplos de éstos son: 








FOO, BAR, BAZ, 1+, +$, PE-PI-TO. Sin embargo, +1, +7, -18.5 no son 
símbolos. 

Los caracteres permitidos son las letras, los números y, ade¬ 
más, los siguientes: 

= *, /, $, %, \, <, >, . 

Los símbolos tienen una serie de características que los ha¬ 
cen muy interesantes. Pueden nombrar o representar objetos que, 
a su vez, se distingan por sus peculiares propiedades y que se 
pueden asociar al símbolo. _ 

Un símbolo puede representar cualquier tipo de objeto en 
LISP, incluso otro símbolo. 

Existen dos símbolos reservados en Common LISP, que son 
T y "NIL". Representan los valores de certeza y falsedad, respec¬ 
tivamente. 


Cadenas de caracteres 

Están formadas por letras, números y otros caracteres espe¬ 
ciales, como %, espacio, etc. Se representan entre comillas. 


Listas 


Son, con mucho, las estructuras más importantes del LISP. Con¬ 
sisten en un paréntesis, seguido de una serie de objetos LISP, aca¬ 
bada en un paréntesis de cierre. Ejemplos de listas son: 

(1 2 3 4) 

(1 (2 3) 4) 

(FOO BAR) 

(BAZ) 

( ) 

(1 FOO (2 3) (BAR (T BAZ))) 

La lista vacía se representa por "NIL” o por "( )"; así “NIL" es 
el único objeto que es símbolo y lista al mismo tiempo. 

Una definición más rigurosa de lista es la siguiente. Una lista 

es: 

a) la lista vacía o NIL. 

b) el resultado de añadir una expresión cualquiera a la cabe¬ 
za de una lista. 

Esta es una definición recursiva, capaz de generar cualquier 
lista. Por ejemplo, la lista (A (B 1) C 17) se formará como sigue: 
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1. Lista vacía. 

2. 17 & ( ). 

3. C & (17). 

4. (B 1) & (C 17). 

5. A& ((B 1) C 17) 


( ) 

(17) 

(C 17) 

((B 1) C 17) 
(A (B 1) C 17) 


Las listas en LISP tienen una representación interna muy in¬ 
teresante, que es la que les confiere sus características principa¬ 
les. La unidad básica de construcción de una lista es lo que se de¬ 
nomina célula elemental. Consiste ert dos punteros asociados en- 

ire si y la representaremos como se indica en la figura 1. 



í 

; 


Figura l.—Una célula elemental. 


Estos dos punteros tienen nombre propio: CAR el primero y 
CDR el segundo. Bajo esta estructura las listas son una serie de 
células elementales encadenadas y que terminan en NIL. Así, la 
lista (A B) tiene la estructura que se muestra en la figura 2. En la 
figura 3 se dan algunos ejemplos de listas y sus representaciones. 




+ NIL 
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Figura 3.—Algunas listas y su representación celular. 



Aunque en general todas las listas terminan en NIL, cabe pen¬ 
sar en una estructura análoga que no lo haga. Es lo que se deno- 

■ par ordenado. Se representa por un paréntesis, un objeto LISP, 
un punto, otro objeto LISP y el cierre del paréntesis. En la figura 
4 hay algunos ejemplos. 


(A . S) 


(A . ÍB O) 


J 

i 

i 


-+ 3 


! T 1I T 1 H — "rfT h — * "i*- 

i 4 T 


B 


Esta estructura, nunca se verá (A . (B O), sino 
así: (A B C) 


Es interesante comparar estas estructuras con las de las figuras 

2 y 3. 


(ÍFGO BAR) . BAZ) 


i * j «H 

—«BAZ 

+ 


1 ?! *i 


i 

i 

i 

roa 

BAR 


I Figura 4.—Algunos pares ordenados y su representación celular. 


Matrices 

Corresponden a las matrices matemáticas. Sus elementos pue¬ 
den ser de los diversos tipos que admite el LISP, incluso pueden 
existir varios tipos en una misma matriz. 













Estructuras 


Las estructuras son construcciones que deben ser definidas 
por el usuario; almacenan datos de forma semejante a como lo ha¬ 
cen los registros de una base de datos, es decir, con una serie de 
campos en cada registro. Al definir una estructura, el intérprete 
LISP crea una serie de funciones que permiten acceder y modi¬ 
ficar la información almacenada en ella. 

NOTA —A lo largo del libro hacemos uso de la palabra "es¬ 
tructura” con dos sentidos. En el capítulo 11 se refiere al tipo de 
datos así llamado y que acabamos de comentar por encima, mien¬ 
tras que en otros capítulos podrá encontrar la referencia a “estruc¬ 
turas de datos”, con lo que denominaremos a todo tipo de datos. 


Funciones 


Son los principales procedimientos que permiten manipular 
los datos Las hay específicas de cada clase de datos, como, por 
ejemplo, las aritméticas, funciones con listas, etc. 

Todas estas estructuras de datos y otras que aquí no hemos 
mencionado se clasifican en grupos jerárquicamente organizados. 
La clase de todas las posibles estructuras válidas en Common LISP 
se denomina common. 

De todas las estructuras se dice que son expresiones. Otras 
clases importantes son los átomos (símbolos y números principal¬ 
mente) y sus opuestos (las listas y los pares ordenados), genéri¬ 
camente llamados objetos celulares. La característica que los di¬ 
ferencia consiste en estar formados por células elementales (ob¬ 
jetos celulares) o no (átomos). La figura 5 ilustra esta clasificación. 


COMMON 

(EXPRESIONES) 


ATOMOS 

y\ 


/ 


/ 


OBJETOS CELULARES 


\ 


SIMBOLOS NUMEROS LISTAS PARES ORDENADOS 

SjSSB Figura 5.—Clasificación de los objetos LISP. 
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ESTRUCTURA DE LOS PROGRAMAS: 
SINTAXIS Y SEMANTICA 



na vez que se han definido los tipos de datos 
más importantes, la sintaxis del LISP se hace 
de una simpleza extraordinaria y se resume en 

una frase: 

CUALQUIER EXPRESION CORRECTA EN LISP 
ES UN PROGRAMA O PROCEDIMIENTO 
SINTACTICAMENTE CORRECTO 


Como ya se ha comentado, una expresión puede ser, típica¬ 
mente, un átomo o una lista. Un átomo siempre es una expresión 
correcta, en términos de sintaxis. Una lista será sintácticamente co¬ 
rrecta si cada paréntesis derecho se corresponde con un parén¬ 
tesis izquierdo. Por tanto, programas LISP pueden ser: 


53 

F00 

(ADD1 5) 

(CAR (CDR '(BAR BAZ ))) 

(EL-PADRE-ES 'FEDERICO) 

(PERRO TIENE 4 PATAS) 

NIL 

Para tratar la semántica LISP es esencial comprender lo que 
se entiende por evaluar una expresión. En LISP todas las expre- 
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siones tienen algún valor asignado, así la evaluación de una ex¬ 
presión consiste en obtener su valor. 

El LISP trabaja con un bucle denominado READ-EVAL-PRINT 
(Lectura-Evaluación-Impresión), que toma una expresión, bien sea 
del teclado o de otro dispositivo (ficheros, memoria, etc), obtiene 
su valor y lo muestra, bien sea en pantalla o en otro dispositivo. 
Puede ilustrarse esto con un ejemplo, si.se teclea: 

(+2 5) 

el intérprete LISP lo leerá, interpretará ^ después imprimirá: 

7 

Las reglas de evaluación son bastante sencillas y se dan a con¬ 
tinuación. A partir de ahora, el resultado de evaluar una expresión 
se presentará separado de ésta por una flecha. 

a) Los números evalúan su valor. 

7 -> 7 

5 -> 5 

1.25 -> i. 25 

-17.0 -> -17.0 

b) NIL y T se evalúan a sí mismos 

T -> T 

NIL -> NIL 

c) Los símbolos evalúan la expresión que les ha sido asociada 


PADRE-DE-JUAN — 

-> 

FEDERICO 

PERRO 

-> 

ANIMAL 

F00 

-> 

(BAR BAZ) 

X 

-> 

7 

FALSO 

-> 

NIL 


Es de notar que a los símbolos se les puede asociar cualquier 
expresión, sea otro símbolo, una lista, un número o cualquier 
otra, siempre que sea correcta. 


d) ; evaluación de las listas es algo más compleja y da al LISP 
su carácter. El LISP asume que la primera expresión es una for¬ 
ma especial, una macro o una función, produciéndose error en 
otro caso. El tipo de esta expresión determina la evaluación 
de la lista. 


Evaluación de listas 

Si el primer elemento de la lista es una función, el LISP con- 
sidera al rGSto d6 las expresiones d6 la lista como argumentos de 
i a rr.ism Los evalúa y después los manipula según el procedi¬ 
miento que determine la función. Si se tienen dos funciones: “+ , 
que suma todos sus argumentos, y "*”, que multiplica los suyos, 
pueden plantearse algunos ejemplos. 

(+ 2 4) -> 6 

<* 10 6 ) -> 60 

La evaluación de los argumentos se muestra a continuación. 

(* <+ 7 3) (+ 2 4)) -> 

-> (+10 6 ) -> 60 

Por supuesto, pueden anidarse tantas listas como se desee: 

<* lo (#9 (* 8 (+5 (+27))))) -> 10080 

Si se tiene un símbolo al que se le asignó un valor, por ejem¬ 
plo asignamos 12 a "docenas”, entonces 

(* docenas (+52)) -> 

-> <*12 7 ) -> 84 

Los ejemplos que presentamos en el capítulo se escribirán en 
LISP como sigue: 



(HIJO-DE 'JUAN 'MARIA) -» COSME 


Nótese el apóstrofe que aparece justo antes de los símbolos 
“JUAN" y “MARIA". Aunque es un elemento importante del LISP lo 
trataremos algo más adelante. 
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La primera expresión de una lista también puede ser una for¬ 
ma especial o el nombre de macro. 

Las formas especiales son procedimientos de manipulación de 
datos y control que trabajan de manera particular. Pueden o no 
evaluar sus argumentos y los efectos que tienen son propios de 
cada una. 

En Common LISP hay un número fijo de formas especiales, ya 
preprogramadas, y a las que no se puede añadir ninguna creada 
P or fel usuario. A continuación se explica brevemente el compor¬ 
tamiento de una forma especial como ilustración. 

La forma especial SETO sirve para dar un valor a un símbolo. 
Su sintaxis es como sigue: 

(SETO símbolo expresión) 

SETO no evalúa el símbolo, pero sí la expresión, asignando a 
aquél el valor retornado por ésta. Además, la lista evalúa este va¬ 
lor. Por ejemplo: 

(SETO DOCENA (* 6 2)) -> 12 

DOCENA -► 12 

En el teclado se escribe la expresión, que aparece al mismo 
tiempo en pantalla. Al pulsar RETORNO es evaluada y devuelve 
su valor: 12. A continuación se teclea DOCENA y, al evaluarlo, nos 
da su valor: 12, que le ha sido asignado en la primera forma. 

Una macro maneja expresiones; al ejecutarse construye una 
nueva forma, que es la que se evaluará. Este proceso se denomi¬ 
na expansión. Cuando aparece el nombre de una macro en la ca¬ 
beza de una lista se dice que esta lista es una llamada a una ma¬ 
cro Se produce una expansión de la macro a una función que, 
acto seguido, es evaluada. Las macros son definibles por el usua- 
rio utilizando la función DEFMACRO. 


QUOTEyEVAL 


A * ontinuación se describen dos importantes expresiones, la 
I" 1111,1 " i"'ci.i] QUOTE y la función EVAL, que controlan la eva- 
In i' mu i ti las expresiones LISP. 

'-’ 1 i' >TI ; una torrna especial que toma un solo argumento y 
||' I • |. II 11.1 II, /alúa, así 

I'.'IN Vi l IK)CENA) -*■ DOCENA 


mientras que si se escribiera sólo DOCENA, entonces: 

DOCENA -* 12 

Podría decirse, hablando en términos matemáticos, que es la 
operación inversa a la evaluación LISP. Es decir, al evaluar la fun¬ 
ción QUOTE con un argumento, el valor retornado es exactamen¬ 
te el mismo argumento. 

Una abreviatura de QUOTE es el apóstrofe que se ha obser¬ 
vado antes en algunos ejemplos. (PADRE-DE 'JUAN) es lo mismo 
que (PADRE-DE (QUOTE JUAN)). 

La siguiente secuencia de operaciones ilustra lo dicho: 

(SETO JUAN ’ (SR GARCIA)) -> JUAN 

JUAN --> (SR GARCIA) 

(PADRE-DE 'JUAN) -> PEDRO 

(PADRE-DE JUAN) -> ¡¡¡ERROR!!!» (SR GARCIA) no es 

argumento válido. 

En efecto, la función PADRE-DE intenta evaluar sus argumen¬ 
tos, y al evaluar JUAN se encuentra con un tipo de dato que no 
puede tratar: la lista (SR GARCIA). Sin embargo, si utilizamos ’JUAN 
la evaluación se detiene y la función encuentra el argumento co¬ 
rrecto, que es el símbolo JUAN. 

Ya se ha comentado brevemente el funcionamiento del bucle 
READ-.EVAL-PRINT, que se encarga, entre otras cosas, de evaluar 
las expresiones que lee. También se ha dicho que QUOTE inhibe 
el funcionamiento de la parte del bucle que realiza la evaluación; 
pues bien, la función EVAL proporciona un nivel de evaluación su- 
olementario. EVAL es, por tanto, el inverso de QUOTE; produce 
una evaluación extra de su argumento. Unos ejemplos ilustrarán 
esta función: 

' JUAN -> JUAN 

(EVAL 'JUAN) -> (SR GARCIA) 

(SETGl PEDRO ' (SR GARCIA SENIOR) ) -> PEDRO 

(EVAL (PADRE-DE 'JUAN)) -> (SR GARCIA SENIOR) 

El último ejemplo merece una explicación más detallada. 
EVAL, al ser una función, evalúa su argumento: PADRE-DE'JUAN. 
Esta expresión retoma PEDRO y se produce una evaluación más 
de PEDRO por el efecto propio de EVAL, resultando (SR GARCIA 
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SENIOR), que se acababa de asignar a PEDRO. Veamos, para fina¬ 
lizar, otra serie de ejemplos: 


(+ 2 2) -> 4 
'(+2 2 ) ~> (+ 2 2 ) 

ÍEVAL '(+2 2)) -> 4 Hay una evaluación extra. 

" 'FOD -> " F00 

(EVAL ’’'F00) -> 'F00 Se han producido dos evaluaciones 

(EVAL (EVAL '''F00)) -> FOO Tres evaluaciones 

(EVAL (EVAL (EVAL " ' FOO)) ) --> ¡ i i ERROR! ! ! FOO, variable 

no ligada. 


ÍSETQ X '(*23)) -> (* 2 3) 
X -> (* 2 3) 

(EVAL X) -> 6 
(EVAL ’X) -> (*2 3) 

'X -> X 





FUNCIONES DE CONSTRUCCION 
Y MANEJO DE LISTAS 



unque no hemos tratado todavía en detalle el 
comportamiento de las funciones, vamos a intro¬ 
ducir en este capítulo las funciones básicas que 
permiten trabajar con listas en LISP. Se puede, 
dividir en tres grupos claramente diferenciados: 
los constructores de listas, los analizadores y los 
predicados sobre listas. 


Constructores 


Permiten, como su nombre indica, construir listas partiendo 

, le otros objetos LISP. Si recuerda la definición formal de lista dada 
en el capítulo 2 observará que, a priori, sólo se dispone de la lista 
vacía “( )” o NIL, para construir cualquier otro tipo de listas. Par¬ 
tiendo de ella disponemos de la función CONS, abreviatura de 
CONStructor, para realizar la construcción de otras. 

La sintaxis de CONS es la siguiente: 

(CONS expresiónj expresión 2 ) 

El efecto de CONS, cuando el valor de expresión 2 es una lista, 
<»s añadir el valor de expresión! a la cabeza de dicha lista. CONS 
produce una nueva célula elemental cuyo primer puntero apunta 
al resultado de evaluar expresión,. Posteriormente apunta el se¬ 
gundo puntero a la cabeza de expresión 2 , convirtiendo la nueva 
célula en la primera de la lista. Así, por ejemplo: 
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(CONS ’FOO ( )) -> (FOO) 

(CONS 'BAR ’(FOO)) -> (BAR FOO) 

(SET® X ’FOO) -> FOO 
(SET® Y ’BAR) -> BAR 
(CONS 'X (CONS 'Y ( ))) -> (X Y) 

(CONS X (CONS Y < ))) -> (FOO BAR) 

(No es necesario que la lista vacía vaya precedida por QUO- 
TE, dado que se evalúa a sí misma.) 

Si expresión 2 no es una lista CONS produce un par ordenado, 
como se observa a continuación: 

(CONS '(FOO BAR) ’BAZ) -> ((FOO BAR).BAZ) 

(CONS 'A ’B) -> (A.B) 

Dado que CONS es una función, evalúa sus argumentos; así, 
construcciones como la siguiente son posibles: 

(SET® X 'FOO) -> FOO 
X -> FOO 

(SET® X (CONS X '(BAR))) -> (FOO BAR) 

X -> (FOO BAR) 


(SETS X ’ (A B C)) -> (A B C) 

(CONS 'Z X) -> (Z A B C) 

X -> (A B C) 

Nótese que, a pesar de haber añadido un nuevo elemento a 
la cabeza de la lista "X", ésta no ha variado. La representación ce¬ 
lular de la figura 1 insiste en estas ideas. 

Además de construir listas partiendo de la definición, es tam¬ 
bién posible construirlas a partir de elementos. Esta es la tarea de 
LIST y APPEND, cuya sintaxis es: 

(LIST expresión!.expresión N ) 

(APPEND lista,.lista N ) 

LIST construye una lista utilizando como elementos los resul¬ 
tados de evaluar expresión!... expresión N : 
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2 - 


B 





-♦ NIL 


3 - 


B 



1.- El simbolo X se evalúa a la lista (A B C) 1 igada 
con él. 

2 - Se crea una célula nueva con su CAR dirigido a Z 

3 - Se dirige el CDR de la nueva célula a la lista (A B C) 

- Figura 1.—Proceso de evaluación de (CONS ’Z X) 


(LIST ’A ’B 'O -> 
(LIST ’(FOO BAR) ’BAZ) 
(LIST (CONS 'A ’B) ' D) 


(A B C) 

-> ((FOO BAR) BAZ) 

-> ((A.B) D) 
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♦ NIL 


APPEND une todas las listas-argumento en una sola lista. 

(APPEND '(F00 BAR) '(BAZ) '(ABC)) -> 

(FOÜ BAR BAZ ABC) 

(APPEND (CONS 'A '(FOO)) '(C D)) -> (A FOO C D> 

Para ilustrar la diferencia entre LIST y APPEND es útil presen¬ 
tar su estructura interna. LIST, como se observa en la figura 2, cons¬ 
truye una nueva lista con nuevas células elementales. APPEND 
(Fig. 3) copia las estructuras de todas las-listas, excepto la última, 


1 - 


ABC 



ABC 

1 - Se evalúan los argumentos: A,B Y C 

2. - Creación de tantas células elementales nuevas 
como argumentos haya. 

3. -Organización de los punteros en forma de lista. 


MM Figura 2.— Creación de una lista por medio de (LIST A ‘B ’C) 


FOO BAZ 



► NIL 



BAR 


ABC 


2 - 



FOO BAZ 



■ NIL 


NIL 


BAR 


►NIL 


NIL 



ABC 


NIL 


3.- 



NIL 


1.- Se evalúan los argumentos. 

2 - Se construyen coppias de la estructura de todas las listas 
excepto la última. 

3 - Se reorganizan los punteros para dar la lista resultado con 
las copias de las primeras y la última. 


Figura 3.—Evaluación de (APPEND ‘(FOO BAR) ‘(BAZ) ‘(A B C)) 


y las enlaza entre sí y a la última. De esta forma, por ejemplo, la 
lista resultante de unir otras dos comparte todas las células de la 
segunda. 
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Analizadores de listas 

Son funciones que manipulan listas, extrayendo algunos de 
sus elementos. Las más importantes son CAR, FIRST, CDR, REST, 
LAST y algunas derivadas de éstas. 

CAR y FIRST son equivalentes; devuelven el primer elemen¬ 
to de la lista que se les proporciona como argumento. 

(CAR '(F00 BAR)) -> F00 
(FIRST '(FDO BAR)) -> F00 

(SETQ X'IABCll-XABC) 

(CAR X) -> A 

(FIRST (FIRST '((AS) C))) -> A 
(FIRST.'((A B) C)) -> (A B) 

(CAR (CAR '(A B C)) -> i¡¡ERROR!!! A no es una lista 

CDR y REST también son equivalentes; retornan la lista exclui¬ 
do su primer elemento. Así, por ejemplo: 

(CDR ■(FOD BAR BAZ)) -> (BAR BAZ) 

(REST ‘(FDO BAR BAZ)) -> (BAR BAZ) 

(REST (REST '(A B C))) -> (C) 

(REST ’(A)) -> ( ) 

(REST 'FOO) -> ¡i¡ERROR!!! F00 no es una lista 

(SETQ FOO ' (A B C) > -> (A B C) 

(REST FOO) -> (B C) 

Por supuesto, se pueden combinar todas estas funciones para 
extraer el elemento o segmento de lista que se desee. Por ejemplo: 

(CAR (CDR ’(1 23))) -> 2 
(CAR (CDR (CDR '(1 23)))) -> 3 

(CDR (CAR '(1 2 3))) -> ¡¡¡ERROR!!! 1 no es una lista • 

(SETQ A '(FOO BAR BAZ)) -> (FOO BAR BAZ) 

(CDR (EVAL (CAR '(ABC)))) -> (BAR BAZ) 



Este último ejemplo es interesante comentarlo con más deta¬ 
ll) ■ Siempre que evalúa una función, LISP evalúa primero sus ar- 
i inmentos. Eso debe hacer con el de CDR. Para ello debe evaluar 
i'l argumento de EVAL y, por consiguiente, el de CAR; éste, por 
.•recto del QUOTE, resulta (A B C). De aquí se extrae el CAR que 
)>;: "A", EVAL actúa sobre “A” y devuelve su contenido: (FOO BAR 
HAZ). De esta lista se toma el CDR, que resulta (BAR BAZ). 

Las combinaciones de CAR y CDR se pueden abreviar en la 
lorma CxxxxR, donde las "x” se pueden sustituir indistintamente 
por Aes y Des hasta un máximo de cuatro. También existen unas 
hiliciones llamadas con los ordinales en inglés: SECOND, THIRD, 

I OURTH, etc, hasta el décimo (TENTH), que devuelven el corres- 
I tendiente elemento de la lista. 

(CADR '(ABC)! -> B = (CAR (CDR '(ABC))) 

(CADDR '(ABC)) -> C = (CAR (CDR (CDR ’ (A B C)))) 

(THIRD '(ABC)) -> C 

Una función más general es NTFI, que tiene la siguiente sin- 
láxis: 

(NTH número lista) 

Esta función extrae el elemento situado en la posición número 
de lista. 

(NTH 2 ’ (A B C)) -> B 

La función LAST devuelve la lista formada por el último ele¬ 
mento de la lista argumento, 

(LAST '(ABC)) -> (C) 


Predicados sobre listas 

En LISP existen una serie de funciones lógicas que propor¬ 
cionan como resultado la certeza o falsedad de alguna caracterís- 
tica de los argumentos: Son los predicados. 

Mientras que para indicar falsedad sólo se puede utilizar NIL, 
cualquier otra expresión se interpreta como certeza, aunque el sím¬ 
bolo normal es T. 

En lo referente a las listas, los principales predicados son 

LISTP, ATOM, NULL y ENDP. 
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LISTP y ATOM son complementarios. LISTP es cierto si su ar : 
gumento es una lista y falso en cualquier otro caso. ATOM es cier¬ 
to cuando es un elemento “atómico 1 ’ y falso en cualquier otro caso. 

Su uso puede verse en los siguientes ejemplos: 

(ATOM 'A) -> T 


(SETS A ’(X Y Z)) -> (X Y Z) 
(ATOM A) -> NIL 
(ATOM ’(B C)) -> NIL 
(LISTP A) -> T 
(LISTP 'A) -> NIL 


NULL y ENDP detectan ambos la lista vacía o el fin de una lis¬ 
ta. NULL es más general, por cuanto admite cualquier tipo de ar¬ 
gumento, mientras que ENDP sólo puede tratar listas. 

(NULL NIL) -> T 
(NULL ’A) -> NIL 

(ENDP ’A) -> i¡¡ERROR!I! A no es una lista 
(ENDP (CDR '(A))) -> T 

Con lo dicho hasta aquí, la utilización de listas en un primer 
nivel no debe plantear problemas. En el capítulo 6 se tratarán nue¬ 
vas funciones que nos permitirán llevar a cabo otras operaciones 
con las listas. 
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FUNCIONES Y VARIABLES 



1 funcionamiento de LISP, como el de otros len¬ 
guajes de programación, gira en torno a dos 
conceptos básicos: funciones y datos, ya apun¬ 
tados anteriormente. En este capítulo se hará una 
introducción al manejo de funciones y de varia¬ 
bles en LISP. 

Una función es un objeto LISP que requiere, 
para ser evaluado, un conjunto de argumentos 
previamente evaluados en su totalidad; repre¬ 


senta un procedimiento de manipulación de los mismos. 

Como se ha comentado en el capítulo 3, la evaluación de una 


lista depende de su primer elemento. Si éste no es un símbolo 
i )ue represente una forma especial o una macro, se asume que la 
lista es una llamada a una función. Todos los restantes elementos 


de la lista son formas que se evalúan y cuyos valores resultantes 
son suministrados como argumentos a la función, que genera un 


valor a partir de ellos. 

Hay dos formas de indicar qué función va a utilizarse: 


— Utilizar un símbolo (nombre) que la identifique. 

— Emplear una Expresión Lambda. 


Funciones con nombre. Las primitivas 

Cabe diferenciar dos grupos de funciones con nombre: 

— Primitivas: Están ya definidas en la implantación informáti¬ 
ca del lenguaje. El usuario puede aplicarlas directamente. 



— Funciones definidas por el usuario. Este debe especificar el 
manejo que harán de sus argumentos antes de aplicarlas. 

A continuación pueden verse algunos ejemplos de llamadas 
a funciones primitivas, seguidos por la evaluación de dichas lla¬ 
madas: 

(+ 2 3) -> 5 

(*324) -> 24 

(/ 6 3) -> 2 

(* (- 8 4) 3) -> 12 

(MAX 235) -> 5 

(SQRT (MAX (+ 2 3) (* 3 3) (- 4 2))) -> 3 

(CAR '(F00 BAR BAZ)) -> FOG 

(COR '(FOD BAR BAZ)) -> (BAR BAZ) 

Cada primitiva tiene su propia sintaxis, que precisa el núme¬ 
ro, tipo y ordenación de sus argumentos. Por ejemplo, la primitiva 
SQRT. (raíz cuadrada) admite un solo argumento, que debe ser de 
tipo numérico. 

A lo largo de los capítulos posteriores se irán introduciendo, 
según sea necesario, algunas de las primitivas más importantes 
de LISP, como ya se hizo en el capítulo 4 con las funciones bási¬ 
cas de manejo de listas. 


Funciones de usuario con nombre 

La herramienta proporcionada por LISP para que el usuario 
cree sus propias funciones es la macro DEFUN (abreviatura de 
DEfinir FUNción), cuya sintaxis es la siguiente: 

(DEFUN nombre (param i param 2 ... param N ) cuerpo-de-la-función) 

En donde: 

• nombre: símbolo mediante el cual se identifica la función. 

• (param, param 2 ... param N ): lista de parámetros. Sus elemen¬ 
tos son símbolos que pueden aparecer en el cuerpo de la 
función y cuyos valores se corresponden con los de los ar¬ 
gumentos con los que se llama a la función. 
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• cuerpo-de-la-función: descripción del procedimiento de 
manipulación de los parámetros. 

DEFUN no evalúa sus argumentos. Sólo define un nuevo pro- 
■ ■< 'dimiento a partir de ellos, identificado mediante nombre. El va¬ 
lí >i que retorna DEFUN es precisamente nombre. 

Para llamar a una función de usuario se utiliza la misma es- 
iindura que en el caso de las primitivas: el nombre seguido de 
los argumentos; 

(nombre arg 1 arg 2 ... arg N ) 

Un ejemplo ilustrará el empleo de DEFUN y la llamada a una 
función definida con él: 

(DEFUN SUMAR (X Z) 

(LIST 'LA 'SUMA 'DE X 'Y ' DE Z 'ES (+ X Z) )) -> SUMAR 

(SUMAR 3 4) -> (LA SUMA DE 3 Y DE 4 ES 7) 

(SUMAR 3 ’FOO) -> ¡¡¡error!!! 

(SUMAR (+ 3 2) 4) -> (LA SUMA DE 5 Y DE 4 ES 9) 

Una vez evaluados los argumentos (de SUMAR en este caso) 
:;e establece una correspondencia entre los parámetros y los re¬ 
dos de dicha evaluación. Cada uno de los parámetros se liga 
temporalmente al valor del respectivo argumento. Tras esto se lle¬ 
va a cabo la operación descrita en el cuerpo de la función, cuyo 
11 multado es el valor retornado por la llamada a la función. 

En el cuerpo de la función puede haber varias operaciones. 
En este caso se evalúan secuencialmente, siendo el valor retor¬ 
nado por el conjunto el resultado de la última. 

(DEFUN SEC (X Y) 

(* X Y) 

(+ X Y) 

</ X Y) 

(- X Y) ) -> SEC 

(SEC 4 8) -> -4 

Algunas de estas operaciones pueden ser, incluso, llamadas 
a otras funciones. 
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Funciones sin nombre: expresiones Lambda 

Las expresiones Lambda permiten definir una función en el 
momento en aue se la utiliza Una expresión Lambda sustituye a 
nombre en una llamada a función. Su estructura coincide con la 
de DEFUN, pero sustituyendo: 

DEFUN nombre 


por 


LAMBDA 

En el siguiente ejemplo puede verse una misma función de¬ 
finida por los dos métodos. 

(DEFUN SEGUNDO (L) 

(CAR (CDR L))) --> SEGUNDO 


(SEGUNDO ' (A B C)) -> B 


((LAMBDA (L) (CAR (CDR L>)> ’(A B C))• -> B 

Una función definida mediante una estructura Lambda ha de 
describirse cada vez que se utiliza, por lo que es aconsejable ha¬ 
cer uso de DEFUN si la función es llamada repetidas veces. Pos¬ 
teriormente se presentarán ejemplos que aclararán la verdadera 
utilidad de las estructuras Lambda. 


Variables 

Ya se han tratado brevemente los símbolos como una de las 
estructuras básicas de datos de LISP. Los símbolos pueden repre¬ 
sentar variables u otras entidades (funciones, canales de entra¬ 
da/salida, etc.), como en otros lenguajes de programación. 

Dado que una de las principales funciones de los símbolos es 
dar nombre a las variables se emplearán indistintamente ambos 
términos cuando el contexto sea el adecuado. 

En LISP una variable puede almacenar datos: números, sím¬ 
bolos, cadenas de caracteres, etc. Las principales operaciones que 
se pueden hacer con variables son la recuperación de su conte¬ 
nido y la modificación del mismo. Ya se ha tratado la recupera¬ 


ción del contenido de una variable mediante la evaluación del 
■inibolo que la identifica. A continuación se verá cómo modificar 
: .u contenido. 

El almacenamiento de datos se realiza físicamente en una por- 
ion de memoria que, en terminología LISP, se dice que está liga¬ 
da a la variable. Una variable puede estar ligada a varias posicio- 

ii. . , |p memoria o, dicho de otro modo, puede tener distintos va¬ 
lí >i es; según el contexto en que se haga referencia a la variable 
::<? accederá a uno u otro de ellos. 

Para dar un valor a un símbolo se utiliza la forma especial 
: >1 :TQ, que almacena el valor en la porción de memoria ligada a 
l.i variable. Se dice que realiza una asignación. La sintaxis de SETO 
<■:: la siguiente: 

(SETQ noin-símbolo, forma, nom-símbolo 2 forma 2 ... nom-símbolo N 

forma N ) 


Donde: 

• nom-símboloj es el símbolo que identificará a la variable. 

• forma r es la expresión que, una vez evaluada, será el valor 
de la variable. 

Puesto que SETO es una forma especial, tiene sus propias ca- 
i acterísticas. Estas consisten en que deja sin evaluar los nom-sím- 
bolo, y evalúa sólo las forma!. Comienza por forma, y el valor re¬ 
sultante lo asigna a nom-símbolo,; de manera análoga procede, se- 
ouencialmente, con forma 2 , nom-símbolo 2 y las parejas restantes. 

En una forma pueden utilizarse las variables anteriores, con 
los valores previamente asignados. Lógicamente, el número de 
formas ha de ser igual al de símbolos. 

SETO retorna el valor de la última forma de la lista. 

(SETO. X 4) -> 4 

X -> 4 
'X -> X 


(SETQ X 5 Y 'F00 Z '(A B C)) -> (A B C) 
X -> 5 
Y -> F00 
Z -> (A B C) 
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(SETQ F X> -> 5 
F -> 5 


(SETO F 'X) -> X 
F -> X 


(SETQ X (+23)) -> 5 
X -> 5 


(SETS X (ABC!) -> ¡i¡ERROR!!! 

Función “A” no definida. El intérprete ha tratado de evaluar la 
lista (A B C) y ha encontrado que “A" no es un nombre de forma 
especial, de macro, ni de función. 

(* A B) -> i i¡ERROR!!! 

Variable “A” no ligada. Trata de hallar el valor de la variable 
"A”. Como "A” no está ligada a ninguna porción de memoria, no 
está definida. 

(SETQ A 2) -> 2 

(SETQ B 3) -> 3 
, <* A B) -> 6 

SETQ realiza una asignación de valor a las variables. En ter¬ 
minología LISP esto quiere decir que actualiza el contenido de la 
porción de memoria ligada a la variable en el instante en que se 
evalúa SETQ Esta puntualización es importante porque ya se ha 
dicho que una variable puede tener más de una ligadura. 


Establecimiento de ligaduras 

Hemos visto ya cómo recuperar el valor de una variable y 
cómo asignárselo. Seguidamente se tratará del establecimiento de 
las distintas ligaduras y la regla general para establecer qué liga¬ 
dura es efectiva en cada llamada a la variable. 

Con lo estudiado hasta ahora puede decirse que aparece una 
nueva ligadura cuando se llama a una función. Las variables de 



la lista de parámetros se ligan a posiciones de memoria a las que 
se asignan los valores de los argumentos con los cuales se llamó 
i la función. A partir de ese instante los contenidos de las varia¬ 
bles de la lista de parámetros serán los especificados por las nue¬ 
vas ligaduras. Cuando termine la evaluación, los valores de las va¬ 
riables volverán a quedar determinados por las ligaduras anterio¬ 
res a la llamada a la función. Unos ejemplos aclararán estas ideas: 

(DEFUN CUADRADO (N) (* N N) ) -> CUADRADO 

N -> ¡¡¡ERROR!!! Variable rio ligada. 

(CUADRADO 6) -> 36 

Durante la evaluación N ha quedado ligada a 6. (* N N) -+ 
((* 6 6) -* 36 N -»> ¡¡¡ERROR!!! Variable no ligada. 

(SETQ X 3) -> 3 

(SETQ Y 5) -> 5 

(DEFUN F (X Y) 

(+ (* X Y) 10)) -> F 

X -> 3 

Y -> 5 

(F 1 2) -> 12 

Durante el período de evaluación de F las variables “X” e "Y” 
se ligan, de modo temporal, a 1 y 2, respectivamente. 

x -> 3 

Y -> 5 

Las variables recuperan sus valores iniciales. 

(DEFUN DOBLE (X) (+ X X>) -> DOBLE 

(DEFUN CUADRUPLE (X) (DOBLE (DOBLE X))) -> CUADRUPLE 

X -> ¡¡¡ERROR!!! Variable no ligada 

(CUADRUPLE 10) X ligada a 10 en CUADRUPLE. 

(DOBLE (DOBLE 10)) X ligada a 10 en DOBLE. 

se enmascara la ligadura 


anter ior. 


(DOBLE 10) 


<+ 10 10) -> 20 Desaparece la ligadura 
de DOBLE. 

(DOBLE 20) X ligada a 20 en DOBLE. 

Vuelve a quedar enmascarada 
la ligadura de CUADRUPLE. 

(+ 20 20) -> 40 Desaparece la 1igadura 
de DOBLE. 

(CUADRUPLE 10) -> 40 Desaparece la ligadura de 

CUADRUPLE. 

X -> ¡i¡ERROR!!! Variable no ligada 

En la figura 1 .vuelve a encontrarse este ejemplo, ilustrado de 
otro modo. 

Las ligaduras creadas en la llamada a una función se denomi¬ 
nan ligaduras locales. Permanecen vigentes durante la evaluación 
de la función y desaparecen cuando termina ésta. 

Cuando se llama a una variable se recupera el contenido de 
la posición de memoria ligada a ella en ese instante. Si no se ha 
realizado ninguna ligadura la variable no tiene valor definido, de 
ahí los errores mostrados antes. 

Ya se ha comentado el funcionamiento de SETO, que asigna 
un valor a la ligadura vigente en ese instante. Teniendo esto en 
cuenta es fácil ver que, al terminar la evaluación de una función 
y desaparecer las ligaduras asociadas a ella, se pierden los valo¬ 
res asignados en el cuerpo de la función. 

(DEFUN CAMBIO (X) 

(PRINT X) 

(SETO X '(F00 BAR BAZ))) 

(SETQ LISTA '(ABC)) -> (A B C) 

(CAMBIO LISTA) -> (A 8 C) 

(F00 BAR BAZ) 

LISTA -> (A B C) 

X -> ¡¡¡ERROR!!! Variable no ligada. 


fx no ligada] 

|-(CUADRUPLE 10) 

J s 

f X = 10) (DOBLE (DOBLE X)) 


DOBLE de 10 


[X = 1 o) (+ X X) 


DOBLE retorna 20 


X = 10 otra vez 


DOBLE de 20 


[X = 20] (+ X X) 


DOBLE retorna 40 


X = 10 otra vez 


CUADRUPLE retorna 40 


X no ligada otra vez 


1 Figura 1.—Ligaduras locales en la función CUADRUPLE. 
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Se llama a la función CAMBIO con el argumento LISTA. El va¬ 
lor retornado por la evaluación de éste, (A B C), se liga a "X”. La 
función PRINT, que se tratará en un capítulo posterior, muestra en 
pantalla el valor de ’X”. SETO asigna un nuevo contenido, (FOO 
BAR BAZ), a la ligadura vigente de “X". Esta lista se retoma como 
resultado de la evaluación de la función. Una vez terminado el pro¬ 
ceso, la ligadura de "X" desaparece. 

Si se utiliza SETO con un símbolo que no está afectado de nin¬ 
guna ligadura previa y que, por tanto, no tiene ningún valor que 
actualizar, se produce una ligadura global. Este nombre define una 
ligadura cuyo valor asociado es accesibfe desde cualquier punto 
del programa, siempre que no esté enmascarado por una ligadu¬ 
ra local. En este caso SETO no se limita a modificar el contenido 
asociado a una ligadura, sino que la establece. 

(SETS X 2) -> 2 
(DEFUN DUPLICAR (Y) 

(* X Y>) -> DUPLICAR 

(DEFUN TRIPLICAR (X) 

(PRINT X) 

(*3 X)) -> TRIPLICAR 

(DUPLICAR 4) -> S 


El valor de "X”, ligado de forma global, puede ser llamado des¬ 
de el cuerpo de la función. 

(TRIPLICAR 5) -> 5 
15 


Durante la evaluación de triplicar, la ligadura local de 'X” a 5 
enmascara la ligadura global a 2. 

x -> 2 

Vuelve a ser efectiva la ligadura global. 

(DEFUN LIGAR O 

(SETS FOO ’(A B C))) -> LIGAR 
(LIGAR) -> (A B C) 


FOO no tenía ninguna ligadura previa. Así pues, este SETO 
realiza una ligadura global. 

FOO -> (A B C) 

En Common L1SP los efectos de las ligaduras locales, a dife¬ 
rencia de las globales, son internos al cuerpo de las expresiones 
que las crean y no se transmiten a funciones llamadas desde éste. 

Véase un ejemplo que utiliza la función DUPLICAR con una nue¬ 
va definición. 

(SETQ X 2) -> 2 
(DEFUN DUPLICAR O 

(* X Y)) -> DUPLICAR 

(DEFUN CUADRUPLICAR (Y) 

(* 2 (DUPLICAR))) -> CUADRUPLICAR 
(CUADRUPLICAR 3) -> ¡¡¡ERROR!!! 

La variable "Y” utilizada en el cuerpo de DUPLICAR no está 
ligada, ya que la ligadura local establecida por CUADRUPLICAR 
no alcanza a DUPLICAR. Redefinimos ambas funciones de forma 
correcta. 

(DEFUN DUPLICAR (Y) 

(* X Y)) -> DUPLICAR 
(DEFUN CUADRUPLICAR (Y) 

(* 2 (DUPLICAR Y))) -> CUADRUPLICAR 
(CUADRUPLICAR 3) -> ó 

La variable "Y” aparece como argumento y parámetro de DU- 
PLICAR. Al llamar a CUADRUPLICAR aparece una primera liga- ‘ 
dura entre "Y” y 3. Cuando se llama a DUPLICAR desde el cuerpo 
de CUADRUPLICAR “Y” vale 3. Esto determina la nueva ligadura 
que aparece en DUPLICAR, que también une “Y” y 3. 

Ya que en la primera definición de DUPLICAR no había lista 
de parámetros, todas las variables referidas en el cuerpo deben 
buscar sus valores en las ligaduras globales. En el caso de “X" ésta 
existe, pero con "Y" no sucede así. 

Los nombres de las funciones también son símbolos, por lo 
que todas estas reglas les son también aplicables. _ 

Puede decirse, en cierto modo, que DEFUN realiza con las fun- 
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ciones una tarea semejante a la que SETO lleva a cabo con las va¬ 
riables, permitiendo asignar globalmente una función a un nom¬ 
bre. Normalmente, todos los nombres de función que se manejan 
son globales. En p.articular, si se definen dos funciones represen¬ 
tadas por el mismo símbolo, la segunda anula a la primera, como 
ocurría en el ejemplo anterior. 

Predicados sobre ligaduras 

BOUNDP da como resultado T si se^aplica a una variable li¬ 
gada; en otro caso es NIL. Su sintaxis es muy sencilla: 

(BOUNDP nombre-símbolo) 

FBOUNDP retorna T si el símbolo es el nombre de una fun¬ 
ción, uña macro o una forma especial, y es falso en caso contrario. 

(FBOUNDP nombre-símbolo) 

MAKUNDBOUND elimina la ligadura vigente de una variable. 

(MAKUNDBOUND nombre-símbolo) 

FMAKUNBOUND hace lo mismo con funciones. Ambos retor¬ 
nan nombre-símbolo. 

(FMAKUNBOUND nombre-símbolo) 

Veamos algunos ejemplos: 

(BOUNDP 'X) -> NIL 
(SETO X 'F00) -> FGO 
(BOUNDP 'X) -> T 
(MAKUNBOUND 'X) -> X 

Nótese la presencia del apostrofe, ya que el argumento es el 
nombre del símbolo, y no la variable representada por éste. 

X -> ¡i¡ERROR!!! Variable no ligada. 

(DEFUN F00 (X) 

<* X 2)) -> F00 
(F00 3) -> 6 


(FBOUNDP ' F00) -> T 
(FMAKUNBOUND ’FOO) -> F00 

(F00 3) -> i¡¡ERROR!!! Función F00 no definida. 


La función APPLY 

Ya hemos comentado que cualquier lista que se va a evaluar 
y que no puede interpretarse como una llamada a una macro o 
una forma especial, se considera una llamada a una función. APPLY 

es un modo especial de llamar funciones. Su sintaxis es, de forma 
simplificada, la siguiente: 

(APPLY función lista) 

APPLY llama a función utilizando como argumentos los ele¬ 
mentos de lista, que tienen que coincidir en número y tipo con 
los argumentos que admita función. 

(APPLY »'+ MI 21) -> 3 =(+12) 

(SETO X '(35)) -> (3 5) 

(APPLY #'+ X) -> a 

(SET <3 SUMA #'+) -> + 

(APPLY SUMA X) -> 8 

Nótese que en los ejemplos las funciones van precedidas de 

#’. Esta indicación es la abreviatura de la forma especial FUNC- 
TION, que tiene un efecto semejante al de QUOTE sobre símbolos 
ligados a funciones y estructuras LAMBDA. En general, puede sus¬ 
tituirse por QUOTE, pero resulta conveniente emplear #’ por mo¬ 
tivos que van más allá del propósito de esta obra y que no se de¬ 
tallarán. 


Efectos laterales 

Al evaluar cualquier expresión LISP se produce un resultado 
que aparece en pantalla. Además de esto, que se puede conside¬ 
rar el efecto principal, pueden producirse efectos laterales, enten¬ 
diendo por tales otros procesos que no tienen por que ser visi¬ 
bles en la pantalla. . . 

Hay formas cuya utilidad primaria es el efecto principal, es de- 
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cir, el resultado de la evaluación. Entre ellas, los predicados como 
LISTP, BOUNDP, NULL, etc., las primitivas aritméticas o las funcio¬ 
nes básicas de manejo de listas, como CAR, CDR, LIST, etc. 

Hay otras formas cuyo interés primario se basa en su efecto 
lateral. Dos ejemplos claros son la macro DEFUN y la forma espe¬ 
cial SETO- DEFUN liga una función a un símbolo, además de re¬ 
tornar el nombre del mismo, cosa que en general carece de inte¬ 
rés. SETO asigna un valor a una variable y lo devuelve como re¬ 
sultado. Otras muestras de la importancia de los efectos laterales 
son las estructuras de control, que se tratarán posteriormente. 

La macro SETF 

SETO es la forma más sencilla de asignación de variables. 

SETF es la forma general de asignación de valor a una estructura 
de datos LISP. Las sintaxis de ambas son semejantes: 

(SETF lugar j forma! lugar 2 forma 2 ... lugar N forma N ) 

Donde lugar! es una forma que señala una determinada es¬ 
tructura de datos. A diferencia de lo que ocurría con SETO, en al¬ 
gunos casos se evalúa. Puede ser, entre otras: 

• Un nombre de variable. 

• Una llamada a una función de acceso a un elemento de una 
lista, como CAR, CDR, THIRD, etc. 

• Una función que accede a un elemento de una estructura 
(véase capítulo 12). 

SETF se expande a la expresión adecuada para realizar la 
asignación del valor resultante de la evaluación de formai a la es¬ 
tructura indicada por lugap. En el caso particular de que forma! 
sea un nombre de variable, SEFT se expande a SETO- Con el em- 
I íleo de SETF se puede prescindir del uso de SETO- El motivo de 
que se mantenga esta forma especial en Common LISP es su im¬ 
portancia histórica en el desarrollo del lenguaje. 

(SETF X '(F00 BAR BAZ)) -> (F00 BAR BAZ) = 

(SETS X '(FOÜ BAR BAZ)) 

(SETF (CAR X) 'A) -> A = (APLACA X 'A) 

(Véase Cap. 6) 

X > (A BAR BAZ) 
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MANEJO AVANZADO DE LISTAS 



orno hemos podido comprobar a lo largo de 
esta obra, las listas son un tipo de datos muy 
potente y de gran versatilidad. En este capítu¬ 
lo se van a presentar, aunque no de forma ex¬ 
haustiva, un segundo grupo de funciones que 
permiten utilizar eficientemente estas cons¬ 
trucciones. 

Predicados de igualdad 


Como paso preliminar vamos a tratar las formas en que LISP 
puede entender la igualdad entre dos objetos. Se distinguen cua¬ 
tro niveles de igualdad entre objetos, por lo que existen cuatro 
predicados distintos que son, ordenados del más al menos res- 
trictitivo: EQ, EQL, EQUAL y EQUALP. 

Si dos objetos LISP hacen cierto el predicado EQ son física¬ 
mente iguales, es decir, son el mismo; ocupan la misma posición 
física de memoria. Así pues, si se hace: 


(SETG! X 'A) -> A 
(SETQ Y X) -> A 


obtendremos: 


(EQ X Y) -> T 


sin embargo, si ahora se introduce: 
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(SETS Y ' ÍA)) -> (A) 

(SET® X (CONS 'A NIL)> --> (A) 

resultará: 


(E® X Y) -> NIL 


pues X e Y ’ representan objetos en diferentes posiciones de me¬ 
moria. Incluso con los números puede suceder (según la implan¬ 
tación) que, por ejemplo: 


(E® 3 3) -> NIL 


y siempre sucede que, por ejemplo: 
(E® 3 3.0) -> NIL 


pues no son el mismo, ya que uno es un entero y el otro es un 
decimal. 

EQL es un predicado menos restrictivo. Se comporta como 
EQ salvo en lo referente a valores numéricos, para los cuales uti¬ 
liza el concepto matemático de igualdad si son del mismo tipo, así: 

<E®L 3 3) -> T 
(E®L 3 3.0) -> NIL 


EQUAL considera que dos objetos son iguales si tienen la mis¬ 
ma estructura y forma (aunque distingue entre mayúsculas y mi¬ 
núsculas), independientemente de su posición de memoria, salvo 
en el caso de vectores y matrices, para los que utiliza una com¬ 
paración tipo EQ. Los ejemplos aclararán cómo funciona. 

<E®UAL 'A 'B) -> NIL 
(E®UAL 'A 'A) -> T 

(E®UAL 3 3.0) -> NIL (tienen distinta estructura, 

3 es entero y 3.0 es decimal) 

(E®UAL ' (A.B) (CQNS ’A ' B)) -> T 
(E®UAL 'F0 r 'F00) -> T 
(EQUAL 'F00 'Too) -> NIL 


El último y más laxo es EQUALP, que relaja las restricciones 
de las matrices, las mayúsculas y minúsculas, y los tipos de nú¬ 
meros, así: 

(EQUALP 3 3.0) -> T 
(ESUALP 'F00 ’foo) -> T 

Para comprender la utilidad y el funcionamiento de estos pre¬ 
dicados ha de tenerse en cuenta la diferencia que existe en LISP 
entre el objeto, su representación y la posición de memoria que 
ocupa. Puede decirse que dos símbolos iguales ocupan la misma 
i osición de memoria, es decir, son EQ y. por lo tanto, también 
EQUAL y EQUALP. 

Para los números no hay ninguna regla fija, pues dos núme¬ 
ros iguales pueden o no ocupar la misma posición de memoria se¬ 
gún la implantación informática del lenguaje. El predicado EQL y 
también “=” sirven para determinar la igualdad de números. Dos 
números iguales pueden no ser EQ, pero si son del mismo tipo sí 
serán EQUAL. 

Una lista se identifica por la posición de su primera célula en 
la memoria. Dos listas que contienen los mismos elementos pue¬ 
den tener distintas células, aunque los punteros CAR apunten a 
las mismas posiciones de memoria en ambos casos. Dicho de otro 
modo, no serán EQ pero sí EQUAL. La figura 1 ilustra esta idea. 


Operadores destructivos para manejo de listas 


Teniendo presentes estas ideas, es posible ahora introducir 
en el trabajo con listas la noción de operador quirúrgico o destruc¬ 
tivo, como contraposición a los vistos en el capítulo 4. Los más im¬ 
portantes son RPLACA, RPLACD, NCONC, PUSH y POP. 

Puede decirse que los operadores normales (los no destruc¬ 
tivos) no modifican la estructura de su argumento, sino que crean 
una copia de éste. Los destructivos, por el contrario, modifican 
su argumento. Para ilustrar esta diferencia puede compararse 
APPEND con su equivalente destructivo NCONC: 

(SET® FQ0 '(A B)) -> (A B) 

(SET® BAR '(V X)) -> (V X) 

(APPEND F00 '(C D)) -> (A B C D) 

\ 

(NCONC BAR ; ;(Y Z) -> (V X Y Z) 



X —> (A B) 

V —> (A B) 

(EO X Y) —> NIL 
(EQUAL X V) —> T 


' Figura l.—Dos listas con los mismos elementos y distintas direccio¬ 
nes de memoria, es decir, distintas células. 


Aparentemente el resultado es el mismo, peo si ahora solici¬ 
tamos: 


FOO --> (A B) 

BAR -> (VXY /) 


Es decir, NCONC modifica la estructura de la lista original 
mientras que APPEND la reproduce en una nueva lista. NCONC 
cambia físicamente la última célula de su primer argumento para 
que su puntero CDR apunte a la primera célula del segundo ar¬ 
gumento. La figura 2 muestra la secuencia que sigue APPEND y 
la figura 3 la que sigue NCONC. 

RPLACA tiene el efecto de sustituir el CAR de una lista por 
lo que-se le indique. Su sintaxis es 

(RPLACA lista objeto) 
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La lista original aparece como: 



A B 

Al ejecutar Append,se crea una 
copia de ésta: 



A B 


y una nueva lista, para almacenar (C D) 



C D 


Después une estas dos últimas: 



A B C D 



I Figura 2.—Evaluación de (APPEND FOO '(C D)), estando FOO liga¬ 
do a (A B). 
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BAR 


La lista original aparece como: 


BAR 



V X . 

Se crea una nueva lista: 



Y Z 

y se unen las dos. 



Y Z Y Z 

La lista resultante completa queda ligada a BAR 


: figura 3.—(NCONC BAR '(Y Z), estando BAR ligado a (V X). 


y actúa reemplazando el CAR de lista por objeto. Su equivalente 
no destructivo sería: 

(CONS objeto (CDR lista)) 


que, al ser evaluado, retorna una lista con las mismas caracterís¬ 
ticas que la retornada por RPLACA y no modifica lista. Para obte¬ 
ner exactamente el mismo efecto se puede utilizar: 

(SETO lista (CONS objeto (CDR lista))) 

Junto con RPLACA conviene tratar RPLACD, que es análogo 
peí o reemplaza el CDR de la lista Su sintaxis y equivalente no des¬ 
tructivo serían, respectivamente:' 

(RPLACD lista objeto) 

(LIST (CAR lista) objeto) 



Algunos ejemplos del uso de RPLACA y RPLACD son: 

(SETO X '(A C)) -> (A C> 

(RPLACA X 'B) -> (B C) 

X -> (B C) 

(RPLACA X ’(A B)) -> <(A B) C) 

X -> ((A B) C) 

(RPLACD X ’(C D)) -> ((A B) (C D)) 

X -> ((A B) (C D>) 

Por supuesto, la utilización de estas funciones es muy pode¬ 
rosa, pero encierra riesgos importantes. A continuación se dan 
ciertas estructuras que se pueden conseguir, entre muchas otras, 
con sus representaciones celulares. Se supondrá en cada opera¬ 
ción que "X” está ligada a (A B). 

(RPLACD X X) -> (A A A A A -) (Fig. 4) 

(RPLACA X X) -> (((((( . (Fig. 5) 

(SETO Y ' ( (A B) (C D))) -> ((A B) (C D)) 


La lista 



A B 

se transforma en 


X-^+l 




Figura 4.—Creación de una lista circular mediante (RPLAC X X), sien¬ 
do (A B) el valor de X. 


54 


55 







NIL 



r Figura 5— Resultado de la evaluación (RPLACA X X), estando X li¬ 
gado a (A B). 





A B C D 


Como se puede observar, NCONC actúa sobre las . 
listas: (FIRST Y) y (SECOND Y) 

M Figura 6.-Resultado de (NCONC (FIRST Y) (SECOND Y)), siendo 
((A B (C D)) el valor de Y). Se obtíene ((A B C D) (C D). 
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(NCONC (FIRST Y) (SECOND Y)) -> (ABC D) 

Y -> ((A B C D) (C D>> (Fig. 6) 

(SETS Y ’(C D)) -> (C D) 

(NCONC X Y) -> (A B C D) 

* 

(NCONC X Y) -> (A B C D C D C D . . . (Fig. 7 ) 

Y -> (C D C D C D C D ... 

PUSH y POP son macros que tratan a la lista como si fuera 
una "pila" de objetos LISP. 

(PUSH objeto lista) 

PUSH introduce objeto en la cabeza de lista, como haría CONS, 
pero de forma destructiva, cambiando el valor de lista. PUSH eva¬ 
lúa el nuevo valor de lista. 

(SETS X '(BAR BAZ)) -> (BAR BAZ) 

(CONS 'F00 X) -> (F00 BAR BAZ) 

X -> (BAR BAZ) 

(PUSH 'F00 X) -> (F00 BAR BAZ) 

X -> (F00 BAR BAZ) 

La macro POP es complementaria de PUSH: extrae el primer 
elemento de la lista. En cierto modo es equivalente aun CAR qui¬ 
rúrgico. Siguiendo con los ejemplos anteriores tendríamos: 

(CAR X) -> foo 
X -> (FOO BAR BAZ) 

(POP X) -> FOO 
X -> (BAR BAZ) 

Otros dos grupos de funciones relacionadas, uno destructi¬ 
vo y el otro no, pero de parecidos resultados, son las familias 
REMOVE y DELETE: 

REMOVE DELETE 

REMOVE-IF DELETE-IF 

REMOVE-IF-NOT DELETE-IF-NOT 

REMOVE-DUPLICATES DELETE-DUPLICATES 
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Las listas originales son: 



Tras la primera fase: (NCONC X V) 

X Y 

NIL 

A B C D 

Segunda fase : (NCONC (NCONC X Y) V) 
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La familia REMOVE copia sus argumentos y la familia DELÉTE 
los altera. 

(REMOVE objeto lista) 

(DELETE objeto lista) 

Ambos eliminan los elementos de lista que sean iguales en sen- 
lido EQL a objeto. 

(REMOVE-IF predicado lista) 

(DELETE-IF predicado lista) 

eliminan los elementos de lista que cumplen predicado. 
Análogamente, REMOVE-IF-NOT y DELETE-IF-NOT eliminan los 
elementos que no satisfacen predicado. 

(REMOVE-DUPLICATES lista) 

(DELETE-DUPLICATES lista) 

eliminan todos los elementos repetidos en lista salvo la primera 
ocurrencia de cada clase. 

(SETS X ' (A B C A B C>) -> (A B C A B C) 
(REMOVE-DUPLICATES X) -> (A B C) 

X -> (A B C A B C) 

(DELETE-DUPLICATES X) -> (A B C) 

X -> (A B C) 

(SETS Y ’(A 2 3 F00)) -> (A 2 3 F00) 

(REMOVE-IF 'NUMBERP Y) -> (A F00> 

Y -> (A 2 3 F00) 

(DELETE-IF 'NUMBERP Y) -> (A F00) 

Y -> (A FOO) 

Normalmente todas estas funciones utilizan como predicado 
de igualdad EQL, aunque suele ser posible especificar otra fun¬ 
ción para las comparaciones. 
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Las listas como conjuntos y como tablas 

Hay otras formas de considerar las listas además de las vis¬ 
tas. Aquí se expondrán sólo las dos más significativas: como con¬ 
juntos y como tablas (llamadas también listas de asociación). El tra¬ 
tamiento de conjuntos se realiza, entre otras, con las funciones: 

UNION, INTERSECTION, MEMBER, MEMBER-IF 
y SET-DIFFERENCE 

que tienen sus versiones quirúrgicas en 

NUNION, NINTERSECTION y NSET-DIFFERENCE 

aquí sólo se expondrán las no destructivas, entendiéndose que és¬ 
tas últimas son análogas. También se supondrá en adelante en este 
capítulo que la igualdad se considera en sentido EQL 

(UNION lista! lista 2 ) 

produce la unión de las listas dejando, si hay elementos iguales, 
sólo un elemento de cada clase. En general no respeta la ordena¬ 
ción de las listas originales. 

(INTERSECTION lista, lista.,) 

produce una copia de lista, en la que se han quitado todos los ele¬ 
mentos que no son iguales a alguno de lista-, con los mismos cri¬ 
terios que las dos funciones anteriores. 

(MEMBER objeto lista) 

comprueba si objeto es igual a algún elemento de lista; si lo es, 
devuelve el resto de la misma lista a partir del elemento. Adviér¬ 
tase que MEMBER devuelve una parte de la misma lista, no una co¬ 
pia. Si objeto no es miembro de lista, retorna NIL. 

(MEMBER '2 ' (1 2 3) -> (2 3) 

(MEMBER-IF predicado lista) 

trabaja análogamente a MEMBER, pero la prueba es predicado en 
lugar de la igualdad con un objeto; por ejemplo: 

(MEMBER-IF 'ATOM ' ((A B) C D)) -> (C D) 

(MEMBER-IF 'LISTP '(A B C)) -> NIL 
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Para utilizar las listas de asociación (como tablas), se utiliza la 
función ASSOC. 

(ASSOC clave lista) 

La función ASSOC asume que la estructura de lista tiene una 
forma particular: 

((clave, expresión,) 

(clave 2 expresión.,) 

(clave 3 expresión 3 ) 


(clave N expresión N )) 

en donde clavei es un átomo y expresión] cualquier expresión L1SP. 

La forma de actuar de ASSOC es buscar en lista un elemento, 
una sublista (clave] expresión]) cuyo CAR sea igual a clave y re¬ 
tornar ese elemento. 

(SET<3 ORDINALES ’ ( (1 PRIMERO) 

(2 SEGUNDO) 

(3 TERCERO)) -> 

-> ((1 PRIMERO) <2 SEGUNDO) (3 TERCERO)) 

(ASSOC 2 ORDINALES) -> (2 SEGUNDO) 

(ASSOC 'PRIMERO '((PRIMERO A) (SEGUNDO B))) -> 

-> (PRIMERO A) 

Hay otras dos funciones que no encajan exactamente entre 
las anteriores, pero que son bastante útiles. Se trata de REVERSI 
y NREVERSE, que evalúan a una lista con el orden invertido. 
REVERSE crea una copia y NREVERSE modifica el original. La sin¬ 
taxis de ambas es: 

(REVERSE lista) 

(NREVERSE lista) 

su uso se aclarará con un ejemplo: 

(SETQ X '(ABC)) -> (A B C) 

(REVERSE X) -> (C B A) 
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Lista original: 



A B C 


Resultado de (REVERSE X) 



NIL 


ABC 



Resultado de (NREVERSE X) 



NIL 


Figura 8.—Comparación de REVERSE y NREVERSE. 



X -> (A B C) 

(NREVERSE X) -> (C B A) 

X -> (C B A) 

En la figura 8 se observan las estructuras celulares correspon¬ 
dientes. 
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CONDICIONALES 



os condicionales son una de las principales es¬ 
tructuras de control de todo lenguaje de progra¬ 
mación. Dirigen el flujo de información por el 
programa mediante la toma de decisiones. El 
manejo de condicionales en LISP es bastante se¬ 
mejante al de otros lenguajes. En este capítulo 
se expondrán las principales estructuras condi¬ 
cionales, con abundantes ejemplos. 


WHEN 

Es la forma más sencilla de tomar decisiones. Como el resto 
de los condicionales se trata de una forma especial, por lo que tie¬ 
ne sus propias reglas de evaluación, su sintaxis es la siguiente: 

(WHEN test forma! forma 2 ... forma N ) 

Donde: 

• test: es la primera forma evaluada. Si retorna NIL, ninguna 
de las demás es considerada y WHEN resulta NIL. En otro 
caso, comienza la evaluación del resto de las formas. 

• forma! forma 2 ... forma N : Cuando test retorna no-NIL son eva¬ 
luadas secuencialmente; WHEN retorna forma N , es decir, la 
última forma. 

Generalmente WHEN se usa para producir efectos laterales • 
de forma condicional (como la transferencia del control a otros 









procedimientos) y no suele interesar el resultado de su evalua¬ 
ción. Cuando es este último el principal objetivo es más elegante 
el empleo de AND, que se tratará posteriormente en este mismo 
capítulo. 

A continuación pueden verse algunos ejemplos sencillos de 
WHEN: 

(WHEN (NUMBERR 8) (SETQ A <* 2 3))’ (SETQ B (+ 10 20))) -> 
30 


B -> 30 


(WHEN (LISTP 'F00) (SETO X (*45)) -> NIL 
X -> i i¡ERROR!!! Variable no ligada. 

el test evaluado NIL y por tanto no evalúan el resto de las formas. 


UNLESS 

Su estructura es idéntica a la de WHEN, pero funciona de ma¬ 
nera contraria. La sintaxis de esta forma especial es la siguiente: 

(UNLESS test forma! forma 2 ... forma N ) 

Donde: 

• test: es la primera forma evaluada. Si retoma no-NIL finaliza 
la evaluación de UNLESS y éste devuelve NIL. Si test retor¬ 
na NIL comienza la evaluación del resto de las formas. 

• forma, forma 2 ... forma N : Se evalúan secuencialmente en 
caso de que test sea NIL. UNLESS retorna el valor de forma N . 

Así, pues, vemos que ambas formas especiales tienen la es¬ 
tructura: 

Condición -> acción 

en el caso de WHEN la acción sé lleva a cabo si la condición es 
cierta, y en el caso de UNLESS, si la condición es falsa. 

Puede aplicarse a UNLESS el mismo comentario que se hacía 
sobre WHEN en lo referente a la elegancia de su empleo. 
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Algún ejemplo: 

X -> ¡¡¡ERROR!!! Variable no ligada. 

(UNLESS (LISTP ’(F00 BAR)) (SETQ X (* 3 5))) -> NIL 
X -> ¡¡¡ERROR!!! Variable no ligada. 

(SETQ P00 7) -> 7 

(UNLESS (NUMBERP F00) (SETQ X (#35)) -> 15 
X -> 15 


Se trata de otra forma especial de tipo condicional, de estruc¬ 
tura algo más compleja. Su sintaxis es la siguiente: 

(IF test entonces en-otro-caso) 

Donde: 

• test: es la primera forma evaluada. Si retorna no-NIL se eva¬ 
lúa entonces, si retoma NIL se pasa a en-otro-caso. 

• entonces: primera acción del IF. Si test retorna no-NIL es 
evaluada y el IF retorna el resultado de esta evaluación. 

• en-otro-caso: segunda acción del IF. Si test da NIL es eva¬ 
luada y el IF devuelve este resultado. Puede prescindirse 
de esta forma; en ese caso, si test resulta NIL, IF retoma NIL, 
pero en este supuesto es más conveniente usar WHEN. 

Algún ejemplo de IF 
(IF (SYMBOLP 1) <* 3 3) (+ 2 2) > -> 4 
(DEFUN F00 (X) 

(IF (LISTP X) 'LISTA 'ATOMO)) -> F00 
(F00 4) -> ATOMO 
(FOO '(HOLA PEPE)) ->LISTA 
(SETQ BAR '(X Y Z>) -> (X Y Z) 

(FOO BAR) -> LISTA 
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(DEFUN VALOR-ABSOLUTO (X) 

(IF « X O) (- X) X)) -> VALOR-ABSOLUTO 
(VALOR-ABSOLUTO 3) -> 3 
(VALOR-ABSOLUTO -2) -> 2 


COND 

Es la estructura condicional más completa de todas las que 
vamos a tratar aquí. Su sintaxis es la siguiente: 

(COND (test; Conseco consecra ... consec^) 

(test 2 consec 2 .i ... consec 2 _ H ) 


(test N consec N .! ... consec N . L )) 

Cada una de las listas de la forma (test] consecj.!... consecj. K ) 
se denomina cláusula. COND evalúa secuencialmente las cláusu¬ 
las. Para ello examina el test de cada una. Si resulta NIL la cláusula 
es ignorada y se pasa a la siguiente. Cuando un test es no-NIL lle¬ 
va a cabo la evaluación de esa cláusula con la evaluación secuen- 
cial de todas las formas consecuentes. COND retoma el valor de 
la última forma evaluada de la cláusula en cuestión sin evaluar las 
cláusulas restantes. 

Así, pues, un COND está compuesto de una serie de parejas 

condición-consecuentes y evalúa los consecuentes correspondien¬ 
tes a la primera condición que sea no-NIL. En el caso de que nin¬ 
guna de ellas sea no-NIL, COND retoma el valor NIL. Si la cláusula 
con test no-NIL no tiene ningún consecuente, COND ofrece el va¬ 
lor del test. 

Es muy recomendable que la última cláusula de un COND ten¬ 
ga como test T, de manera que sus consecuentes se evalúen siem¬ 
pre que todos los demás tests sean falsos. Suele utilizarse, al me¬ 
nos, la cláusula (T NIL). 

Unos ejemplos aclararán estas ideas: 

(DEFUN COMPARA (X Y) 

(COND ((= X Y) ' LOS-NUMEROS-SON-IGUALES) 

(« X Y) ’ EL-PRIMER0-E5-MEN0R) 

(O X Y) 'EL-PRIMERO-ES-MAYOR) )) -> COMPARA 
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(COMPARA 2 3) -> EL-PRIMERO-ES-MENOR 
(COMPARA 10 20) -> EL-PRIMERO-ES-MAYOR 
(COMPARA 5 5) -> LOS-NUMEROS-SON-IGUALES 

Las tres primitivas que se han utilizado en el cuerpo de este 
DEFUN sólo admiten números como argumentos. Por tanto, si se 
llama a la función COMPARA con argumentos no numéricos, se 
tendrá un error. 

Dado que si las dos primeras condiciones son falsas la terce¬ 
ra ha de ser forzosamente cierta, podría haberse sustituido esa 
cláusula por (T ’EL-PRIMERO-ES-MAYOR). En otro ejemplo puede 
quedar más clara la utilidad del empleo de "T” como condición 
de la última cláusula. 

(DEFUN CAPITAL-DE (X> 

(COND ((EQUAL X 'FRANCIA) 'PARIS) 

((EQUAL X 'ESPAÑA) 'MADRID) 

((EQUAL. X 'PERU) 'LIMA) 

((EQUAL X 'PORTUGAL)' 'LISBOA) 

(T 'NO-LO-SE) )) --> CAPITAL-DE 

(CAPITAL-DE 'PERU) -> LIMA 
(CAPITAL-DE 'ESPAÑA) -> MADRID 
(CAPITAL-DE 'ARGENTINA) -> NO-LO-SE 

Siempre que se suministre como argumento un país que no 
esté entre las condiciones del COND este programa contestará 
NO-LO-SE. 


Funciones lógicas 

Son semejantes a los condicionales, pero en ellas lo más in¬ 
teresante es el efecto principal. Corresponden a las conectivas co¬ 
pulativa y disyuntiva de la lógica tradicional. 

AND es una macro que resulta NIL si alguno de sus argumen-. 
tos es falso y -NIL si todos son ciertos. Recuérdese que en LISP la 
forma de expresar la falsedad es NIL, y cualquier otra expresión, 
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particularmente T, representa verdad. La sintaxis de AND es la si¬ 
guiente: 

(AND exp^ expr 2 ... expr N ) 

AND evalúa secuencialmente todas las expresiones argumen¬ 
to. Cuando encuentra alguna que es NIL retorna NIL y termina su 
evaluación, sin evaluar las restantes. Si no encuentra ninguna NIL 
retorna el valor de expr N . Un ejemplo aclarará esto. 

(AND (LISTP '(A B C)) (LXSTP '(FOQ BAR)) -> (F00 BAR) 

(AND (LISTP '(A B O) (LISTP 'A)) -> NIL 
(SETQ X ' (A B C)) -> (A B C) 

(AND (LISTP X) (LISTP 9)) -> NIL 
1 -> i.i ¡ERROR!!! Variable no ligada. 

Y -> ¡¡¡ERROR!!! Variable no ligada. 

(AND (SETQ Z 8) (LISTP 9) (SETQ Y 7)) -> NIL 
Z -> 8 

Y -> ¡¡¡ERROR!!! Variable no ligada. Las expresiones 
posteriores a (LISTP 9) -> NIL no se evalúan. 

OR da como resultado NIL si todos sus argumentos son NIL; 
Si hay alguno no-NIL retorna no-NIL. Su sintaxis' es semejante a la 
de AND: 

(OR expr! expr 2 ... expr N ) 

OR evalúa secuencialmente sus argumentos. Cuando encuen¬ 
tra alguno no-NIL retorna este valor y finaliza su evaluación igno¬ 
rando las restantes expresiones. Si todos son NIL OR resulta NIL. 
Por ejemplo: 

(OR (NUMBERP ó) (NUMBERP 7) (NUMBERF 8)) -> T 
X -> ¡¡¡ERROR!!! Variable no ligada. 

Y -> ¡¡¡ERROR!!! Variable no ligada. 

(OR (NUMBERP 'E! (SETQ X 'FF) (SETQ Y ’GG)) -> FF 
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X -> FF 


Y -> i i¡ERROR!!! Variable no ligada. 

La última expresión no se ha evaluado. 

(NOT (LISTP '(ABC))) -> NIL 
(NOT (NUMBERP '(A))) -> X 

NUMBERP es un predicado que ofrece T cuando su argumen¬ 
to es un número y NIL en otro caso. 

Un importante complemento de AND y OR es NOT. NOT de¬ 
vuelve T cuando su argumento es NIL, y NIL en cualquier otro 
caso. Su sintaxis es muy sencilla: 

(NOT arg) 
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OTRAS ESTRUCTURAS DE CONTROL: 
SECUENCIAMIENTO E ITERACION 



na de las estructuras de control más rudimien- 
tarias es la iteración, que consiste en la ejecu¬ 
ción repetida de una serie de procedimientos 
hasta que se satisface una determinada condi¬ 
ción que interrumpe el proceso. 

En LISP el método más antiguo de itera¬ 
ción es el empleo de las construcciones prog. 
Con ellas se puede escribir un programa con 
una filosofía similar a los escritos en FORTRAN 
o BASIC. En un principio eran la única forma de crear de un modo 
explícito un bucle de programa; en la actualidad, con la macro DO, 
que se tratará posteriormente, han quedado superados. 

Hay varias construcciones de este tipo: la macro PROG y las 
formas especiales PROGN, PROG1 y PROG2. Se tratarán todas ellas 
(con fines didácticos), aunque debe tenerse siempre presente que 
es más aconsejable utilizar la macro DO. 


PROG 

Su sintaxis es la siguiente: 

(PROG (vari var 2 (var 3 forma-inic 3 ) ... var K ) 

(formai forma 2 marcai forma 3 ... marca M forma N )) 

En donde: 

• vari — var K : son variables que quedan ligadas localmente 
dentro del PROG. Pueden aparecer solas o dentro de una 


73 








lista de la forma (var¡ forma-inicj), en donde forma-inicj re¬ 
presenta una forma que, evaluada, da el valor inicial de varj. 
En primer lugar se evalúan secuencialmente todas las for- 
ma-inic!, a continuación se ligan las variables a los valores 
de sus respectivas formas. En caso de que una variable ca¬ 
rezca de forma-inic se liga a NIL. Al terminar de evaluar el 
PROG desaparecen las ligaduras creadas por él y todas las 
variables recuperan el valor que tenían. En caso de que no 
haya ninguna variable debe aparecer la lista vacía. 

• forma! ... forma N : Conjunto de formas que constituyen el 
cuerpo del PROG. Son evaluadas secuencialmente una tras 
otra. Tras serlo la última termina la evaluación del PROG, 
que retoma como valor NIL 

• marcai... marca M : Son símbolos o números enteros que que¬ 
dan sin evaluar e identifican una posición dentro del grupo 
de formas que constituyen el cuerpo del PROG. 

Entre las formas del PROG es interesante destacar dos que 
son específicas de esta construcción: 

• GO marcaf. Cuando se alcanza esta expresión el control de 
la evaluación es transferido a la forma inmediatamente pos¬ 
terior a marca]. Equivale a las sentencias GOTO de otros len¬ 
guajes de programación. En general no conviene utilizar 
esta expresión debido a cuestiones de estilo, puesto que di¬ 
ficulta la lectura y entendimiento de los programas. 

• RETURN forma: Produce el final de la evaluación de PROG. 
El valor retornado por éste es el resultante de la evalua¬ 
ción de la forma que acompaña a RETURN, 

A continuación se muestra un ejemplo práctico de la sintaxis 
del PROG mediante la función FACTORIAL, que calcula el facto¬ 
rial del número suministrado como argumento. 

(DEFUN FACTORIAL (N) 

(PROG (NUMERO RESULTADO) 

(SETS NUMERO N) 

(SETQ RESULTADO 1) 

MARCA 

(WHEN (ZEROP NUMERO) (RETURN RESULTADO)) 

(SETQ RESULTADO <* RESULTADO NUMERO)) 

74 


(SETS NUMERO (- NUMERO 1)) 

(GO MARCA) ) ) -> FACTORIAL 

Este PROG utiliza como variables locales NUMERO y RESUL¬ 
TADO. Inicialmente se ligan a NIL y a continuación se les asignan, 
respectivamente, los valores 1 y N (el número del que queramos 
obtener factorial). También podían haberse dado los valores ini¬ 
ciales dentro de la lista de variables que aparece en la cabecera 
del PROG. A continuación se encuentra un bucle de iteración que 
calcula en cada pasada uno de los productos del factorial y de- 
crementa NUMERO en una unidad. Al comenzar el bucle se com¬ 
prueba si NUMERO es igual a cero, en cuyo caso se termina el 
PROG retomando RESULTADO como valor. 

Como se puede observar, salvando las distancias impuestas 
por la sintaxis de cada lenguaje, la estructura del PROG es similar 
a la de un programa en BASIC, por ejemplo. 

Uno de los motivos que desaconsejan el uso del PROG es que 
la asignación de valores iniciales a las variables su actualización, 
y las comprobaciones de fin de bucle, pueden estar dispersas a 
lo largo del cuerpo. Por otra parte puede haber múltiples señales 
y formas GO. Todo esto dificulta el seguimiento de la evaluación 
del procedimiento y hace preferible utilizar los DO, en donde cada 
una de las partes antes citadas tiene una posición definida dentro 
de la estructura. Puede demostrarse que todo programa que uti¬ 
lice PROG puede reescribirse utilizando DO. 


LOOP 

Es la estructura más simple de iteración. Se limita a ejecutar 
repetidamente su cuerpo sin tener control sobre variables. Su sin¬ 
taxis es 

(LOOP forma! forma 2 ... forma N ) 

Sus formas deben ser listas; en futuras extensiones de Com- 
mon LISP está prevista la posibilidad de incluir átomos. 

LOOP evalúa secuencialmente cada forma y, tras terminar con 
la última, vuelve a comenzar con la primera. RETURN permite ter¬ 
minar este proceso retornando el valor especificado en su argu¬ 
mento. 
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PROGN, PR0G1, PR0G2 

Estas construcciones no tienen demasiada relación con el 
PROG tratado antes. La forma de trabajo de las tres es bastante pa¬ 
recida: se limitan a evaluar, una tras otra, todas las formas conte¬ 
nidas en su cuerpo, diferenciándose en el valor que retornan. 

PROGN retorna el valor de la última forma evaluada, PROG1 el de 
la primera y PROG2 el de la segunda. 

Sus sintaxis son: 

(PROGN forma! forma 2 ... forma N ) 

(PROG1 formai forma 2 ... forma N ) 

(PROG2 formai forma 2 ... forma N ) 

No son demasiado útiles, puesto que hay otros métodos de 
evaluar secuencialmente una serie de formas, como DEFUN, LET 
o DO. Todos estos utilizan un PROGN de forma implícita, puesto 
que evalúan todas sus formas y retoman el valor de la última. 


LET 

Es una forma especial que tiene el mismo comportamiento 
que el PROGN, con la facilidad adicional de permitir la utilización 
de variables locales. 

Su sintaxis es la siguiente: 

(LET ((var, valor,) 

(var 2 valor.,) 

(var N valor N )) 
cuerpo-de-LET) 

En primer lugar evalúa las expresiones valori, valor 2 , hasta va- 
lor N> de forma secuencial y va almacenando los resultados para 
después ligar simultáneamente todas las variables a sus respec¬ 
tivos valores (se dice que las variables si ligan en paralelo). La li¬ 
gadura se mantiene durante la ejecución de las formas conteni¬ 
das en el cuerpo, desapareciendo cuando ésta termina. 

La lista (vari valoré puede ser reemplazada simplemente por 
vari, en cuyo caso el valor inicial, de esta variable es NIL; sin em¬ 
bargo, es aconsejable, por razones de estilo, que siempre aparez¬ 
ca la lista de la variable con su valor. 

El cuerpo-de-LET está compuesto por una serie de formas que 
son ejecutadas secuencialmente. Como valor devuelto por la eva¬ 

76 


luación de LET se retorna el resultado de la última forma del cuer¬ 
po; se puede decir que el cuerpo de LET es un PROGN implícito. 

LET es particularmente útil para almacenar el resultado de 
una operación que debe repetirse varias veces a lo largo del pro¬ 
ceso; por ejemplo, la función ARITMETICA realiza la suma, resta, 
multiplicación y división de sus dos argumentos: 

(DEFUN ARITMETICA (X Y) 

(LET ((LISTA (LIST X Y))) 

(SETF SUM (APPLY #'+ LISTA)) 

(SETF DIF (APPLY LISTA)) 

(SETF PROD (APPLY *'* LISTA)) 

(SETF COC (APPLY #’/ LISTA)))) -> ARITMETICA 
(ARITMETICA 84) -> 2 
SUM -> 12 
DIF -> 4 
PRDD -> 32 
COC -> 2 

(BOUNDP LISTA) -> NIL 

En este ejemplo sólo se evalúa una vez (LIST X Y), almace¬ 
nándose su resultado en LISTA; de no haber hecho esto, debería¬ 
mos haber repetido dicha operación con cada una de las formas 
SETF, lo que redundaría en una mayor ineñcencia del procedi¬ 
miento. Otra posibilidad serla almacenar el resultado de (LIST X 
Y) en LISTA mediante un SETF; sin embargo, sigue siendo más 
conveniente usar LET, puesto que la alternativa deja globalmente 
ligada la variable LISTA, ocupando una posición de memoria de 
forma permanente. Esto, en principio, no tiene ninguna utilidad y 
resulta menos elegante. 


LET * 

Esta forma especial se diferencia de LET en que las ligaduras 
cte las variables con sus valores no se hace en paralelo, sino de 

En primer lugar se evalúa formai y vari se liga 
a su resultado. Con las restantes variables se va procediendo del 
mismo modo, una tras otra. Esta forma de actuar presenta la ven¬ 
taja de que pueden utilizarse los valores de las variables previa- 
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mente ligadas en las formas que dan valor a las variables siguien¬ 
tes. La sintaxis de LET* es idéntica a la de LET. 


DO y DO* 

Estas macros son las construcciones de uso general para ite¬ 
ración. Como ya se comentó anteriormente, DO permite realizar 
los mismos procedimientos que los PROG, con la ventaja de que 
tienen zonas definidas para actualizar las variables cada vez que 
se realiza un ciclo de iteración y para realizar la comprobación 
de fin de bucle. Su estructura está más ordenada. 

La sintaxis de DO es la siguiente (la de DO* es exactamente 
igual, cambiando DO por DO* en la cabecera): 

(DO ((vaq valor-inic! actual¡) 

(var 2 valor-inic 2 actual 2 ) 

(var N valor-inic N actual N )) 

(test-de-fin expresiones-fin) 
cuerpo) 

Puede decirse que hay tres partes en esta construcción: 

— La primera contiene la lista de parámetros junto con sus 
valores iniciales y su actualización. 

— La segunda determina cuándo finaliza el proceso de itera¬ 
ción y qué se hace al terminar. 

— La tercera está ocupada por formas que se evalúan se- 
cuencialmente. 

En primer lugar se evalúan todas las formas valor-inici y se 
asignan en paralelo sus resultados a las variables locales var r . En 
caso de omisión de algún valor-inic! (lo que implica también la 
omisión de actualj) la variable correspondiente recibe NIL como 
valor inicial. Al igual que se dijo en el caso de LET conviene de¬ 
jar explícito el valor inicial de todas las variables. 

Una vez ligadas todas las variables locales se realiza la com¬ 
probación especificada en test-de-fin; en el caso de que esta for¬ 
ma evalúe a NIL se continúa con las expresiones que la siguen, 
evaluándolas en orden como un PROGN implícito. El valor de la 
última es retornado como resultado del DO. Si test-de-fin no es NIL 
entonces se comienza a evaluar el cuerpo del DO, el cual admite 
la:; mismas expresiones que el del PROG. Los valores de las for¬ 
ma:: no son retornados, por lo que sólo se dejan sentir sus efectos 
latí miles. Si se encuentra una expresión que comienza por RE- 
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TURN se termina inmediatamente el DO, cuyo valor retornado será 
el del argumento de dicha expresión. 

Al terminar de evaluarse el cuerpo finaliza un ciclo de itera¬ 
ción. En ese instante se actualizan las variables con la asignación, 
también en paralelo, de los valores obtenidos en la evaluación de 
las formas actual^ A continuación se vuelve a comprobar, con test- 
de-fin, si debe finalizar el proceso iterativo. En función del resul¬ 
tado que se obtenga se sigue uno de los dos caminos alternativos 
anteriormente descritos. 

Si se tratara de un DO* las variables serían ligadas a sus va¬ 
lores iniciales y actualizadas de forma secuencial. 

La función FACTORIAL puede ser redefinida utilizando 
un DO: 

(DEFUN FACTORIAL (N) 

(DO ((RESULTADO 1 <* RESULTADO NUMERO)) 

(NUMERO N (- NUMERO 1))) 

((ZEROP NUMERO) RESULTADO))) 

En este caso no existe cuerpo y el valor del factorial se cal¬ 
cula a través de la actualización de la variable RESULTADO. Ob¬ 
sérvese cómo, mediante esta construcción, la función FACTORIAL 
resulta mucho más compacta. 

El que las variables se liguen y actualicen en paralelo o en 
serie puede influir grandemente en el valor que se les asigna y 
ser fuente de errores. En el ejemplo, tal como está escrito, no hay 
problemas para utilizar DO* en lugar de DO. Pero si se invierte el 
orden de asignación dejándolo como figura a continuación, sólo 
puede utilizarse correctamente con DO: 

(DEFUN FACTORIAL (N) 

(DO ((NUMERO N (-• NUMERO 1)) 

(RESULTADO 1 (* RESULTADO NUMERO))) 

((ZEROP NUMERO) RESULTADO))) 

En efecto, si se utiliza DO* la variable NUMERO es actualizada 
antes de obtenerse su producto con RESULTADO. 
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OPERADORES APLICAT1V0S 



1 uso de operadores aplicativos es un tipo de ite¬ 
ración característico de LISP. Permiten aplicar 
sucesivamente una función a cada elemento de 
una secuencia (concepto que, a efectos de este 
libro, se considera equivalente al de lista). El re¬ 
sultado es una secuencia que contiene los valo¬ 
res retornados por las sucesivas aplicaciones de 
la función 

,_, Sólo presentaremos los operadores aplica- 

tivos sobre listas, ilustrándolos con algunos ejemplos sencillos. 

Las construcciones que se ofrecen a continuación tienen di¬ 
ferentes modos de seleccionar los elementos de la lista y de tra¬ 
tar los resultados obtenidos de la aplicación de la función. Sus sin¬ 
taxis son semejantes: consisten en el nombre del operador utili¬ 
zado seguido por el de la función que va a aplicarse y una o va¬ 
rias listas crue contienen los argumentos de la función; así: 


(MAPCAR función lista! lista 2 ... lista N ) 

(MAPLIST función listai lista 2 ... lista N ) 

(MAPC función lista! lista 2 ... Usta N ) 

(MAPL función listai lista 2 ... lista N ) 

(MAPCAN función listai lista 2 ... listan) 

(MAPCON función listai lista 2 ... lista N ) 

En la posición de función no puede aparecer el nombre de 
una macro o de una forma especial. ¡a ¡unción puede ser una de 

las definidas por el usuario con nombre, una expresión LAMBDA 
o una primitiva del sistema. 
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El número de listas que sigue a la función debe coincidir con 
el número de argumentos que requiera la misma. Esta tomará el 
primero de ellos de los elementos de lista!, el segundo de los de 
lista 2 y así sucesivamente hasta completar el número total de ar¬ 
gumentos. Debe procurarse que la longitud de todas las listas sea 
igual; en caso contrario la iteración termina cuando se llegue al 
final de la lista más corta, ignorándose los elementos sobrantes 
de las otras. 

• MAPCAR: opera con cada uno de los elementos de la lista 
de forma sucesiva. La primera vez con el CAR, la segunda 
con el CADR, la tercera con el CADDR, etc. 

Retoma los resultados de todas las aplicaciones de la función 
combinados del mismo modo que si se les hubiera aplicado la fun¬ 
ción LIST. 

(MAPCAR #’NULL '(3 O 0 MIL FDO) -> (NIL T NIL T NIL) 
(MAPCAR #’LIST '(A 3 T) 

' (B 4 NIL)) -> ((A B) (3 4) (T NIL)) 

Nótese el símbolo #’ situado delante del nombre de la fun¬ 
ción y el apóstrofe delante de las listas. 

• MAPLIST: aplica la función a la lista completa y a sus suce¬ 
sivos CDR. Los resultados los retorna de la misma manera 
que MAPCAR. 

(MAPLIST 'CONS ’(A B C) 

'(FOO BAR BAZ>) -> (((A B C) F00 BAR BAZ) 

(<B C) BAR BAZ) 

Í(C) BAZ)) 

• MAPC y MAPL: se comportan, respectivamente, como 
MAPCAR y MAPLIST pero, a diferencia de éstos, retornan 
tras su evaluación la primera lista de argumentos. Su utili¬ 
dad principal reside, por lo tanto, en los efectos laterales 
de la función aplicada. 

• MAPCAN y MAPCON: también coinciden con MAPCAR y 
MAPLIST, pero en este caso combinan los resultados de la 
función usando NCONC en lugar de LIST. Los resultados 
cuyo valor sea NIL son eliminados de la lista; ésta puede 
tener, por tanto, una cantidad variable de elementos, 


82 


(MAPCAN tt'NULL '(300 NIL FOG) -> <T T) 

(MAPCAN #'LIST '(A 3 T) 

'(B 4 NIL)) -> (A B 3 4 T NIL) 

(MAPCON 'CONS ’(A B C) 

'(FOO BAR BAZ)) -> ((A B C) FOO BAR BAZ (B 
C) BAR BAZ (C) BAZ) 

Al emplear los operadores aplicativos suele ser útil recurrir 
a las expresiones LAMBDA. Obsérvese el siguiente ejemplo: 

(DEFUN CUENTA-NUM (LISTA) 

(APPLY #'+ 

(MAPCAN r (LAMBDA (X! 

(IF (NUMBERP X) 1 NIL)) LISTA))) -> CUENTA-NUM 

(CUENTA-NUM ’(A 2 R 5 10 FOO)) -> 3 

La función CUENTA-NUM retorna la cantidad de números con¬ 
tenida en una lista. La expresión LAMBDA evalúa a 1 si su argu¬ 
mento es un número y a NIL si no lo es. Este último valor es eli¬ 
minado al construirse la lista a la que evalúa MAPCAN. Por últi¬ 
mo, la función "+” suma los elementos de esa lista. 
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RECURSION 



e denomina recursión (o recursividad) 
de que una función o procedimiento se llame a 
sí mismo en el curso de su evaluación. Esta po¬ 
sibilidad aporta, en muchos casos, una alternati¬ 
va a las estructuras de control tradicionales. La 
utilización de la recursión suele dar como resul¬ 
tado unos procedimientos más compactos y 
simples. En este capítulo daremos unas breves 
indicaciones sobre la estructura de los progra- 


Ui'OAVWViViiVW — ---- - 

mas recursivos, para después ilustrar extensamente este concep¬ 


to apoyándonos en varios ejemplos. 


LISP está construido básicamente sobre la idea de recursión. 


LilOr tibia i/Uiiou uiuu - , ~ . 

La lista, que es la principal estructura de datos, tiene una defini¬ 
ción recursiva, como ya se vio en el capítulo 2. Por este mismo 
motivo, el mismo bucle READ-EVAL-PRINT está fundamentado 


también en este concepto. Al estar LISP así concebido se hace 
muy sencilla la definición y el empleo de funciones recursivaa 
Por otra parte, la posibilidad de emplear ligaduras múltiples sobre 
una misma variable, que se enmascaran automáticamente cada 
vez que se evalúa una función, evita al programador gran parte 
del control de la transferencia de información entre los procedi¬ 
mientos. 


Estructura general de la recursión 

Un problema susceptible de ser tratado mediante recursión 
ha de reunir tres características: 


• Su resolución ha de poder ser descompuesta en la resolu¬ 
ción de una etapa y la del resto del problema, 

• la resolución del resto ha de ser análoga a la del problema 
completo; 

• debe existir un estado límite del problema cuya resolución 
sea inmediata y que señala el fin del proceso recursivo. 

Un ejemplo típico de este tipo de problemas es el cálculo del 
factorial de un número. En efecto: 

— Su resolución se puede descomponer en el cálculo del fac¬ 
torial de número menos uno y su multiplicación por el pro¬ 
pio número; 

— la resolución del factorial de un número menos uno es aná¬ 
loga a la del factorial del número; 

— existe un estado límite (factorial de uno) que es uno. 

Estas características llevan inmediatamente a la definición de 

un algoritmo recursivo: 

1. Si se está en el caso límite -»• solución inmediata. 

2. En otro caso, separar una etapa y resolver el resto. 

Aplicado al factorial, y expresado en LISP, esto resultaría: 

(DEFUN FACT (IM) 

(CONO ((EQUAL NI) 1) 

<T (■* N (FACT (- N 1) )) >) ) 

Las dos cláusulas del COND reflejan la estructura antes co¬ 
mentada. La primera comprueba la condición límite, dando la so¬ 
lución inmediata si aquélla se cumple. La segunda cláusula, es la 
propiamente recursiva: siempre que no se verifique la condición 
límite, descompone el problema y aplica el mismo procedimiento 
a la resolución del resto. Es decir, calcula el factorial de N-l y lo 
multiplica por N. Compárese este algoritmo con el procedimiento 
iterativo tratado en el capítulo 8. 

En la figura 1 se muestra una ejecución de (FACT 5) con la 
ayuda de la macro TRACE. Esta es una ayuda a la depuración de 
programas LISP que muestra las llamadas a las funciones con sus 
argumentos y las salidas con los resultados de la evaluación. Se 
tratará más ampliamente en un capítulo posterior. 

Otro ejemplo sencillo de problema de estructura recursiva es 
el paso de un número entero en sistema decimal al sistema bina- 
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* (DEFUN FACT (N5 

(COND ((EQUAL N 1) 1) 

(T (* N (FACI (- N 15))))) 

FACT 

* (TRACE FACT) 

T 

* (FACT 5) 

Entering■ FACT, Argument list* <5) 

En te ring» FACI , Argument 1 1 ='. ■ '" r ; 

Enterings FACT, Argument 1ist s f^ 
Entering» FACT, Argument ¡ i - 
Enteriñgs FACT, Argument 1ists (1) 
Ex i t i ng¡ FAC I", Valúes i 
Exitings FAC F , Valúes ¿ 

Exitings FACT, Valúes 6 
Ex i t i ng s FACT, Val ue s .¿.4 
Ex itings FACT, Va!ue; 1¿L 


* 

atK Figura 1.—Ilustración del funcionamiento recursivo de FACT. 


rio La operación "normal" para hacer esto consiste en ir dividien¬ 
do por 2 sucesivamente el número y los cocientes obtenidos. Los 
restos calculados y el último cociente, en orden inverso, expresan 
el número en base 2. En la figura 2 se muestra el algoritmo ma- 

E1 problema se puede descomponer en obtener el resto de 
dividir el número entre 2 y pasar a base 2 el cociente obtenido. 
La condición límite es que el número a convertir sea menor que 
2; en ese caso la solución es trivial y es el mismo numero (0 ó 1). 

La función LISP correspondiente es: 

(DEFUN BINARIO (N) 

(COND ((< N 2) N) 

(T <+ <* (BINARIO (TRUNCATE N 2)) 10) (MOD N 2))))) 
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2 

6 
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2 

3 

1 


2 

1 


25 10 = 11001 2 


M Figura 2.—Algoritmo para paso de sistema de numeración decimal 
a sistema binario. 


La primera cláusula del COND comprueba la condición lími¬ 
te. Si el número es menor que 2 su expresión binaria es él mismo. 
La segunda descompone el problema y vuelve a llamar a la fun¬ 
ción BINARIO. El cuerpo de esta segunda cláusula incluye varias 
funciones que no se han explicado: TRUNCATE obtiene el cocien¬ 
te entero de N y 2; MOD calcula el resto de la división. 

Con esto el proceso se desarrolla de la siguiente forma: (BI¬ 
NARIO (TRUNCATE N 2)) devuelve la expresión binaria del co¬ 
ciente. Esta expresión se multiplica por 10, pues la lógica numé¬ 
rica del ordenador es decimal, y se le suma el resto. En la figura 
3, la macro TRACE ilustra el funcionamiento de (BINARIO 25). 


Un ejemplo de recursión con listas 


Vamos a plantear a continuación una definición de la inter¬ 
sección de listas, basada en la recursión. Se trata de una función 
que toma como argumentos dos listas y retorna una tercera con 
todos los elementos comunes de las primeras. 

El procedimiento que sigue consiste en estudiar si el primer 
elemento de la primera lista es miembro de la segunda. En caso 
afirmativo se incorpora a la lista que retornará como resultado. 
Posteriormente se halla la intersección del resto de la primera lis¬ 
ta con la segunda. La condición límite es que la primera lista sea 
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* (DEFUN BINARIO (N) 

(COND U< ( N 2^ ^ INAR . 0 ( T RUfjcATE N 2)) 10) (MOD N 2) ) ) ) > 

BINARIO 

* (TRACE BINARIO) 

T 

* (BINARIO 25) 

Entering: BINARIO? Argument ¡ist- (2—>) 

Entering: BINARIO, Argument list: (12) 

Entering: BINARIO, Argument list: (6) 

Entering: BINARIO, Argument list: (3) 

Entering: BINARIO, Argument list: (1) 

Exiting: BINARIO, Valué: 1 
Exiting: BINARIO, Valué: 11 
Exiting: BINARIO, Valué: 110 
Exiting: BINARIO, Valué: 1100 
Exiting: BINARIO, Valué: 11001 


11001 

* 


M Figura 3.—Paso del sistema decimal al binario mediante una función 
recursiva. 


vacía, en cuyo caso la intersección es también vacía. La expre¬ 
sión en LISP de este algoritmo es la siguiente: 


(DEFUN INTERSECCION (X Y) 

(COND ((NULL X) NIL) 

((MEMBER (CAR X) Y) 

(CONS (CAR X) (INTERSECCION (COR X) Y))) 
(T (INTERSECCION (CDR X) Y)))) 


Como siempre, la primera cláusula del COND comprueba la 
condición límite. La segunda incluye en el resultado al primer ele¬ 
mento de “X" si pertenece a "Y" y vuelve a llamar a la función IN¬ 
TERSECCION dando como argumento el resto de "X’^La tercera 
cláusula también es una llamada recursiva a INTERSECCION, con 
el mismo argumento, despreciándose en esíe c^o el pnmer ele¬ 
mento La figura 4 ilustra el funcionamiento de (INTERSECCION 
'(A B C D) ‘(A C G)). 


89 



* (DEFUN INTERSECCION (X Y) 

(CONO ((NULL X) NIL) 

((MEMBER (CAR X) Y! (CONS (CAR X) (INTERSECCION (COR X) Y))) 
(T (INTERSECCION (CDR X) Y)))) 

INTERSECCION 

* (TRACE INTERSECCION) 

T 

* (INTERSECCION '(A B C D) '(A C G)) 

Entering: INTERSECCION, Argument 1 ist: ((ABC D) (A C G)) 

Entering: INTERSECCION, Argument 1 i st s ((B C D) (A C G)) 

Entering: INTERSECCION, Argument list: ((C D) (A C G)) 

Entering: INTERSECCION, Argument list: ((D) (A C G)) 

Entering: INTERSECCION, Argument list: (NIL (A C S>) 

Exiting: INTERSECCION, Valué: NIL 
Exiting: INTERSECCION, Valué: NIL 
Exiting: INTERSECCION, Valué: (C) 

Exiting: INTERSECCION, Valué: (C) 

Exiting: INTERSECCION, Valué: (A C) 


Figura 4.—INTERSECTION: función recursiva que calcula la intersec¬ 
ción de dos listas. 


Manejo recursivo de listas anidadas 

El siguiente procedimiento de ejemplo es una ampliación de 
MAPCAR que tiene como fin aplicar una función a todos los ele¬ 
mentos terminales de un conjunto de listas anidadas. Por ejemplo, 
si se aplica NUMBERP (predicado que evalúa a T si su argumento 
es un número y a NIL en otro caso) a: 

( (F00 3) (A (B O) BAR 3 (4 5) BAZ) 

se obtendría como resultado: 

((NIL T) (NIL (NIL NIL)) NIL T (T T) NIL) 

La condición de terminación es que el argumento sea un áto¬ 
mo. En ese caso la función se le aplica directamente. Si no es un 
átomo debe ser una lista y se aplica todo el procedimiento a cada 
uno de los elementos de la lista que, a su vez, pueden ser átomos 
o listas. En LISP quedaría: 

(DEFUN MAP-ARBOL (FUN EXPR)' 

(COND ((ATOM EXPR) (FUNCALL FUN EXPR)) 

(T (MAPCAR #' (LAMBDA (X) (MAP-ARBOL FUN X)) EXPR)))) 
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La primera cláusula comprueba y resuelve el caso límite. La 
segunda aplica MAP-ARBOL a todos los elementos de EXPR por 
medio de un MAPCAR. La función FUNCALL realiza una llamada 
a la función ligada a FUN, empleando como argumento EXPR. Es 
semejante a la función APPLY ya comentada; se diferencia de ella 
en que sus argumentos no están contenidos en una lista. En la fi¬ 
gura 5 se detalla la aplicación de MAP-ARBOL al ejemplo anterior. 


*(OEFUN MAP-ARBOL (FUN EXPR) 

(COND ((ATOM EXPR) (FUNCALL FUN EXPR!) 

(T (MAPCAR #' (LAMBDA (X) (MAP-ARBOL FUN X)) EXPR)))) 

MAP-ARBOL 
*(TRACE MAP-ARBOL) 

I(MAP-ARBOL 'NUMBERP '((FOO 3) (A (B C)) BAR 3 (4 5) BAZ)) 

Entering: MAP-ARBOL, Argument list: (NUMBERP ((FOO 3) (A (B C)) BAR 3 (4 5) BAZ)) 
Entering: MAP-ARBOL, Argument list: (NUMBERP (FOO 3)) 

Entering: MAP-ARBOL, Argument list: (NUMBERP FOO 

Exiting: MAP-ARBOL, Valué: NIL 

Entering: MAP-ARBOL, Argument list: (NUMBERP 3) 

Exiting: MAP-ARBOL, Valué: T 
Exiting: MAP-ARBOL, Valué: (NIL T) 

Entering: MAP-ARBOL, Argument list: (NUMBERP (A (B C))) 

Entering: MAP-ARBOL, Argument list: (NUMBERP A) 

Exiting: MAP-ARBOL, Valué: NIL 

Entering: MAP-ARBOL, Argument list: (NUMBERP (8 C>> 

Entering: MAP-ARBOL, Argument list: (NUMBERP B! 

Exiting: MAP-ARBOL, Valué: NIL 

Entering: MAP-ARBOL, Argument list: (NUMBERP C) 

Exiting: MAP-ARBOL, Valué: NIL 
Exiting: MAP-ARBOL, Valué: (NIL NIL) 

Exiting: MAP-ARBOL, Valué: (NIL (NIL NIL!) 

Entering: MAP-ARBOL, Argument list: (NUMBERP BAR) 

Exiting: MAP-ARBOL, Valué: NIL 

Entering: MAP-ARBOL, Argument list: (NUMBERP 3) 

Exiting: MAP-ARBOL, Valué: T 

Entering: MAP-ARBOL, Argument list: (NUM3ERP (4 5)) 

Entering: MAP-ARBOL, Argument list: (NUMBERP 4) 

Exiting: MAP-ARBOL, Valué: T _ 

Entering: MAP-ARBOL, Argument list: (NUMBERP 5) 

Exiting: MAP-ARBOL, Valué: T 
Exiting: MAP-ARBOL, Valué: <T T) 

Entering: MAP-ARBOL, Argument list: (NUMBERP BAt) 

Exiting^ * MAP-ARBOL^ % Va? uel‘ «NIL T) (NIL (NIL NIL)) NIL T (T T) NIL) 

((NIL T) (NIL (NIL NIL)) NIL T (T T) NIL' 


M Figura 5.—MAP-ARBOL. Aplicación de una función a un árbol ex¬ 
presado en forma de lista. 
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LISTAS DE PROPIEDADES Y ESTRUCTURAS 


I - M-B E anto las listas de propiedades como las estruc- 

/ W M " turas son dos construcciones de LISP que per- 
/ B miten disponer la información en una forma que 

I B se asemeja a la de un registro en una base de 

/ B datos. En ambos casos se asocia a un símbolo 

/ 

/ cualquier objeto LISP. 

Listas de propiedades 


Ya se comentó en el capítulo 2 que un símbolo puede tener 
propiedades. Estas se almacenan en una lista asociada al mismo 
con un número par de componentes y en la cual, comenzando a 
contar desde cero, los elementos pares son símbolos que actúan 
como nombres de las propiedades, y los elerm itos impares son 
los valores de éstas. Por ejemplo, el símbolo PERRO puede tener 
la propiedad PATAS, cuyo valor es 4, también puede tener la pro¬ 
piedad RAZA, con valor CHIHUAHUA. En este caso la lista de pro¬ 
piedades sería algo así: 


(PATAS 4 RAZA CHIHUAHUA). 


Cada propiedad debe ser única, es decir, no puede haber más 
que un solo valor y un solo indicador de nombre para cada pro¬ 
piedad. De acuerdo con esto, dado un símbolo y un indicador se 
obtendrá el valor asociado. 

Cuando se crea un símbolo por primera vez su lista de pro¬ 
piedades está vacía. En LISP hay funciones para añadir propieda- 




des a un símbolo y para modificar o consultar los valores de las 
ya existentes. 


Funciones de acceso a ¡a lista de propiedades 

(GET símbolo indicador) 

GET busca en la lista de propiedades de símbolo un nombre 
de alguna de ellas que sea EQ a indicador. Si lo encuentra, retoma 
el valor de la misma, en caso contrarió retorna NIL. Debe adver¬ 
tirse que no es posible distinguir entre una propiedad inexistente 
y una cuyo valor es NIL. 

(GETF lugar indicador) 

Se comporta exactamente igual que GET con la diferencia de 
que GETF admite en lugar una expresión que retorne un símbolo 
como valor. 

Supóngase que el símbolo PAJARO tiene la siguiente lista de 
propiedades: (TIPO CANARIO MESES 24 CRIAS NIL), entonces: 

(GET 'PAJARO 'TIPO) -> CANARIO 

(GET 'PAJARO 'MESES) -> 24 

(GET 'PAJARO 'COLOR) -> NIL 


(SETF 'AVE (LIST 'PAJARO!) > (PAJARO) 

(GETF (CAR AVE) 'CRIAS) -> NIL 

Las funciones GET y GETF se denominan funciones de acce¬ 
so, y no de lectura, porque lo que hacen es acceder de forma efec¬ 
tiva a la propiedad señalada por indicador. En consecuencia es po¬ 
sible actualizarla, o crearla si no existe, mediante la macro SETF. 
Así, siguiendo con el ejemplo de CANARIO, se obtiene: 

(SETF (GET 'PAJARO 'COLOR) 'BLANCO) -> BLANCO 
(GET ’PAJARO 'COLOR) -> BLANCO 


(SETF (GETF (CAR AVE) 'CRIAS) 4) -> 4 
(GET 'PAJARO 'CRIAS) -> 4 
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Funciones de borrado 

Actúan destructivamente con la lista de propiedades, de la 
cual eliminan tanto el indicador como el valor de la propiedad es¬ 
pecificada. 

(REMPROP símbolo indicador) 

Elimina de la lista de propiedades de símbolo aquella cuyo 
nombre es EQ a indicador. Si la propiedad denominada símbolo 
existe retorna un valor no-NIL, si no existiera retornaría NIL. 

(REMF lugar indicador) 

Se diferencia de REMPROP sólo en que lugar debe ser una 
forma cuyo valor sea un símbolo. 

Siguiendo con PAJARO, su lista de propiedades es ahora: 

(TIPO CANARIO MESES 24 CRIAS 4 COLOR BLANCO) 

Si se hace 

(REMPROP 'PAJARO 'COLOR) -> non-NIL 

(GET 'PAJARO 'COLOR) -> NIL 

La lista quedaría así: 

(TIPO CANARIO MESES 24 CRIAS 4) 

Utilizando REMF con una expresión en lugar: 

(REMF (CAR AVE) 'PATAS) -> NIL Puesto que no existe 

la propiedad PATAS. 

(REMF 'PAJARO 'MESES) -> non-NIL 

Y la lista es ahora: 

(TIPO CANARIO CRIAS 4) 

Estructuras 

La lista de propiedades permite asociar a un símbolo una se¬ 
rie de características. El conjunto formado por éste y sus propie- 
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dades puede representar de manera abstracta a una entidad real. 
El ejemplo con el que se ha trabajado es una muestra clara de 
esto: se han realizado operaciones con objetos LISP, para los cua¬ 
les el nombre no tiene más sentido que el de poder distinguir a 
unos de otros. Sin embargo, de una forma intuitiva se tiende a aso¬ 
ciar el símbolo denominado PAJARO con el concepto abstracto 
que se tiene de un tipo de animales que se identifica por el nom¬ 
bre pájaro. 

En Common LISP, la tarea de crear una construcción que per¬ 
mita asociar fácilmente objetos LISP y conceptos abstractos se ve 
simplificada por el sistema de estructuras. 

Una estructura no es más que una agregación de datos que 
puede identificarse mediante un nombre Una vez que ha sido de¬ 
clarada como tal mediante la macro DEFSTRUCT, la estructura se 
considera como un nuevo tipo de datos definido por el usuario. 
Las estructuras así definidas en LISP son semejantes a las de PL/I 
o a los registros de PASCAL. 

Debe tenerse siempre presente la diferencia entre una estruc¬ 
tura concreta, que al ser declarada se convierte en un nuevo tipo 
de datos, y una ocurrencia determinada de esa estructura, que no 
es más que un objeto LISP cuyo tipo de datos es la estructura an¬ 
terior. Esto se verá más claro con un ejemplo que aparece pos¬ 
teriormente. 

Supóngase que es necesario escribir un programa que trate, 
por ejemplo, sobre perros. De cada perro es interesante saber su 
nombre, raza, edad y a quién pertenece. Hay varias formas de unir 
todos estos elementos: 

— Crear un conjunto de listas, una para cada perro, cuyos ele¬ 
mentos sean listas de dos átomos, siendo el primero el 
nombre de la característica que se desea saber, y el se¬ 
gundo, el valor de la misma. Es decir, construir una lista 
de asociación y emplearla como una tabla. Así: 

((NOMBRE OSCAR) (RAZA MASTIN) (EDAD 4) 

(PERTEN-A LOLA)) 

— Utilizar listas también, pero omitiendo el nombre de la ca¬ 
racterística e identificando el valor de cada una por la po¬ 
sición que ocupe en la lista; por ejemplo, el primero es el 
nombre del perro, el segundo su raza y el tercero y el cu,ar- 
to su edad y el nombre de su dueño, respectivamente. Así, 
con el caso anterior sería: 

(OSCAR MASTIN 4 LOLA) 


— Emplear la lista de propiedades; los nombres de las carac¬ 
terísticas serían los indicadores. En el caso del ejemplo: 

(NOMBRE OSCAR RAZA MASTIN EDAD 4 PERTEN-A 
LOLA) 

— Definir la estructura PERRO mediante DEFSTRUCT y utili¬ 
zarla para crear una estructura para cada perro. 

Cualquiera de estas formas y otras muchas son válidas, pues¬ 
to que permiten almacenar información y acceder a ella. Sin em¬ 
bargo, la más potente y sencilla de todas es la que recurre a las 
estructuras, como se verá a continuación. 

La es la siguiente: 

(DEFSTRUCT (nombre) 

(nom-atributoi valor-omiS]) 

(nom-atributo 2 valor-omis 2 ) 

) 

En donde nombre y nom-atributoi son símbolos que represen¬ 
tan el nombre del nuevo tipo de datos y el de su atributo i-ésimo; 
valor-omiS] es una forma que se evalúa cada vez que se crea una 
estructura y cuyo valor sirve como valor inicial del atributo al que 
acompaña. Puede dejarse sin especificar, en cuyo caso el conte¬ 
nido inicial del atributo queda indeterminado y dependiente de 
la implantación. El valor que retoma es nombre. 

En el caso del ejemplo se tendría: 

(DEFSTRUCT (PERRO) 

(RAZA 'DESCONOCIDA) 

(EDAD 'DESCONOCIDA) 

(PERTEN-A 'NADIE)) -> PERRO 

Lo que se ha hecho aquí es definir el tipo de datos PERRO, 
que es una estructura con su nombre y una serie de atributos. Es¬ 
tos, por omisión, tienen unos valores concretos que se especifi¬ 
can en la definición de la estructura. 

Los efectos laterales de la evaluación de DEFSTRUCT son los 
siguientes 

• Crea un nuevo tipo de datos denominado nombre; 

• define una función constructora denominada MAKE-nom- 


bre, que no admite argumentos y que crea una estructura 
del tipo nombre; 

• define una función de acceso a cada atributo denominada 
nombre-nom-atributo, cuyo argumento debe ser un objeto 
de tipo nombre. 

• define un predicado denominado nombre-p, que retoma T 
si su argumento es un dato de tipo nombre y NIL en caso 
contrario: 

• define una función de copia denominada COPY-nombre, 
cuyo argumento es un objeto de tipo nombre y que crea 
una copia del mismo. 

Entre los efectos laterales está la creación de una función que 
construye objetos del tipo estructura denominada nombre. Como 
ya se dijo antes, es importante diferenciar el tipo estructura de los 
objetos LISP pertenecientes a ese tipo. Aún hay más, puede haber 
tantos tipos de datos estructura como se desee. Todos ellos de¬ 
berán ser declarados y su nombre debe ser diferente del de cual¬ 
quier otro. En la declaración de cada uno de ellos se creará el con¬ 
junto de funciones que se pueden aplicar a su tipo de objetos LISP. 

La macro SETF acepta las funciones de acceso, con lo cual 
puede ser utilizada para modificar el contenido de los atributos. 
Normalmente se utiliza también SETF con MAKE-nombre, puesto 
que no tiene sentido crear una estructura a la que luego no se pue¬ 
da acceder. Suele ser normal utilizar un símbolo como medio de 
acceso. 

La función constructora MAKE-nombre, tiene la siguiente sin¬ 
taxis: 

(MAKE-nombre clave-atributoi forma! 

clave-atributo 2 forma 2 

) 

En donde forma! es evaluada y su valor asignado al atributo 
indicado por la clave clave-atributo!, que se escribirá como: nom- 
atributO[. 

En el caso del ejemplo se habrían creado: 

— El tipo de datos PERRO 

— La función MAKE-PERRO . 

— Las funciones de acceso PERRO-RAZA, PERRO-EDAD y PE- 
RRO-PERTEN-A 

— El predicado PERRO-P 

— La función de copia COPY-PERRO 


98 


La utilización de estas funciones se mostrará con el ejemplo, 
en donde se crea un objeto de tipo PERRO, de nombre OSCAR 

(SETF OSCAR (MAKE-PERRO 
¡RAZA MASTIN 
¡EDAD 4 

¡PERTEN-A LOLA) -> #S(PERRO RAZA MASTIN 

EDAD 4 PERTEN-A LOLA) 

SETF retorna el resultado de evaluar MAKE-PERRO, que re¬ 
toma el contenido de los atributos de la ocurrencia OSCAR de la 
estructura PERRO expresados tal como aparece en el ejemplo. 

( 0 E 1 F (PERRO-EDAD OSCAR) 5) -> 5 Con las funciones de 

acceso puede modifi¬ 
carse el contenido 
de los atributos de 
OSCAR. 

(PERRO-EDAD OSCAR) -> 5 
(PERRO-P OSCAR) -> T 

(SETF CHUCHO (MAKE-PERRO) -> #S(PERRO RAZA DESCONOCIDA 

EDAD DESCONOCIDA PERTEN-A NADIE) 
(PERRO-RAZA CHUCHO) -> DESCONOCIDA 

Si no se especifican los contenidos de los atributos MAKE-PE¬ 
RRO asigna los valores señalados por omisión. 
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OPERACIONES DE ENTRADA Y SALIDA 



n este capítulo se presentarán los principales 
medios que tiene LISP para interaccionar con el 
exterior. Como ya se ha comentado en otro lu¬ 
gar de esta obra, el funcionamiento de LISP se 
basa en el bucle READ-EVAL-PRINT. Las expre¬ 
siones, introducidas desde el teclado u otro dis¬ 
positivo de entrada, son leídas e interpretadas, 
posteriormente se evalúan y finalmente se 
muestra su valor, típicamente en pantalla. En las 
páginas que siguen se hablará de los procedimientos para que 
un programa reciba datos de cualquier dispositivo externo o se 
los envíe. 


Canales de entrada y salida 


Los canales son objetos LISP que sirven como fuentes y/o su¬ 
mideros de datos. A través de ellos se produce el diálogo entre 
el intérprete LISP y el mundo exterior. Normalmente existe un ca¬ 
nal de entrada/salida por defecto, que está unido a la consola: el 
usuario puede definir otros, ligados a impresoras, ficheros en dis¬ 
co, etc. Puede cambiarse el canal por defecto, con lo cual las ope¬ 
raciones básicas se realizarán a través de otro dispositivo externo 
diferente de la consola. 

Frecuentemente, los canales están unidos a un fichero del que 
pueden leerse o en el que pueden escribirse datos. Las operacio¬ 
nes básicas que pueden realizarse con canales y ficheros son la 
apertura y el cierre. 
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En al apertura de un ñchero se crea un canal unido a él. La 

sintaxis de una sentencia de apertura es la siguiente: 

(SETF nom-str (OPEN nom-fich: DIRECTION: clave)) 

• nom-str: Es el nombre que se asigna al canal que va a estar 
unido al fichero que se está abriendo. 

• nom-fich: Indica el camino hacia el fichero, incluyendo su 
nombre. La forma de describir este camino varía de un sis¬ 
tema operativo a otro. Típicamente suele ser una cadena 
de caracteres (escrita, por tanto, entre comillas) que indica 
la unidad de disco y el camino a través del árbol de direc¬ 
torios para llegar al fichero. En un sistema que utilice el 
DOS, un camino podría ser: "b:/directorio/fichero.dat”. 

• ¡DIRECTION ¡CLAVE: Es un modificador; especifica si el ca¬ 
nal que se va a construir es de entrada, salida o ambas co¬ 
sas. El valor de ¡clave sería, respectivamente, ¡input, ¡output 
o :io. Además de ¡DIRECTION pueden existir otros modifi¬ 
cadores que no se van a tratar aquí. 

Una vez evaluada esta sentencia, nom-str queda ligado al ca¬ 
nal que conduce al fichero nom-fich; en ciertas instrucciones de 
entrada y salida constará nom-str, para indicar el destino o la pro¬ 
cedencia de los datos. 

Cuando finalizan las operaciones con un fichero es necesario 
cerrar el canal que conduce a él. Para esto se emplea CLOSE, cuya 
sintaxis es: 

(CLOSE nom-str) 

La evaluación de esta expresión produce el cierre del canal 
nombrado por nom-str. A partir de entonces no se podrán llevar 
a cabo operaciones de entrada y salida a través de ese canal. 

Entrada de datos 

La forma básica de leer datos es el empleo de la función 
READ. Su sintaxis es: 

(READ nom-str) 

READ lee un objeto LISP del canal señalado por nom-str. Si se 
escribe solamente (READ), la lectura se realiza del canal por de¬ 
fecto, normalmente el teclado de la consola. En este último caso, 
la evaluación del programa se detendría hasta que el usuario in- 
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tradujera el objeto LISP en cuestión y pulsara RETORNO. La ex¬ 
presión (READ nom-str) retorna como valor el objeto leído, por lo 
que puede ser suministrada como argumento a una función o for¬ 
ma especial. Un empleo frecuente es: 

(SETF nom-var (READ nom-str)) 

donde el valor leído es asignado a la variable identificada por 

nom-var. 

Otra función de entrada/salida particularmente útil es YES 
OR-NO-P Su sintaxis es: 

(YES-OR-NO-P cadena) 

Esta expresión muestra cadena en la pantalla y espera a que 
el usuario teclee "yes" o "no". Evalúa a NIL si se responde "no” y 
a T si se contesta "yes". Es muy útil para emplearla en construc¬ 
ciones de la forma: 

(IF (YES-OR-NO-P cadena) acción! acción 2 ) 

con lo cual se consigue la transferencia del control a acción! o a 
acción 2 a voluntad. 

Salida de datos sin formato 

WRITE es la función básica de salida. Su sintaxis es: 

(WRITE objeto ¡STREAM nom-str) 

• objeto: es un objeto LISP al que se va a dar salida por el 
canal especificado. Previamente, como cualquier argumen¬ 
to de función, es evaluado. 

• nom-str: identifica el canal de salida seleccionado. El con¬ 
junto ¡STREAM nom-str puede omitirse; en ese caso se uti¬ 
liza el canal por defecto. 

WRITE vale objeto. Esta función puede llevar una serie de mo¬ 
dificadores que especifican cómo debe hacerse la salida. Por 
ejemplo, cuántos niveles de paréntesis han de escribirse en caso 
de que objeto sea un conjunto de listas anidadas. También puede 
detallarse el empleo de mayúsculas o minúsculas, el número de 
elementos de un determinado nivel de paréntesis que se impri¬ 
mirán (los que quedan sin imprimir se sustituyen por puntos sus- 

103 


pensivos), la base empleada para escribir los números (sistema 
decimal, binario, etc), etc. 

Existen una serie de funciones que surgen de la particulari- 
xación de WRITE para unos determinados modificadores. Todas 
tienen la misma sintaxis: 

(*PRIN* objeto nom-str) 

y < -.'X'i ibm objeto por el canal nom-st o por el canal por defecto, 
si se omite nom-str. ^ 

*PRIN* puede ser: 

• PRIjN 1: Escribe la representación impresa normal de obje¬ 
to. Puede decirse que la salida de PRIN1 puede usarse de 
entrada para READ. 

• PRINT: Es idéntico a PRIN1, pero la representación de ob¬ 
jeto es precedida de una señal de NUEVA LINEA y seguida 
de un espacio. 

• PPRINT: La escritura se realiza especialmente formateada 
para una mejor comprensión por el usuario. 

• PRINC: Omite caracteres de control como la barra inverti¬ 
da (\), las comillas (" ”), etc. Produce la salida más elegan¬ 
te, pero no puede ser usada como entrada para READ. 

TERPRI es una función que envía una señal de NUEVA LINEA 
al canal de salida deseado. 

Todas las funciones de salida retornan objeto excepto PPRINT. 
Por tanto, si se usan para enviar datos a la pantalla, como en 

(PRIN1 TOO) -» FOO FOO 

el dato en cuestión aparece dos veces: una debida al efecto late¬ 
ral del PRIN1 (que es la escritura) y otra debida al efecto princi¬ 
pal de la evaluación de toda expresión LISP, que consiste en mos¬ 
trar su valor al canal por defecto. Si las funciones de salida se em¬ 
plean en el cuerpo de una función o en cualquier estructura de 
tipo PROGN implícita (siempre que sea en posición distinta de la 
última) sus valores no se retornan, por lo que sólo se advertiría 
el efecto lateral. 


Salidas con formato 

La función FORMAT es el procedimiento más elaborado de 
salida de datos. Permite la realización de salidas con formatos 


a semejanza de instrucciones FORTRAN 
o BASIC. Su sintaxis es la siguiente: 

(FORMAT destino cadena argumentos) 

Donde: 

• tino: Puede ser un símbolo ligado a un canal de salida 
o NIL. En el primer caso los datos son enviados por dicho 
canal en forma de cadena de caracteres (la cadena de sa¬ 
lida) y FORMAT retorna NIL. En caso de que destino sea 
NIL FORMAT retoma la cadena de salida sin enviarla a nin¬ 
gún canal. 

• cadena: Es una cadena de caracteres, escrita, por tanto, en¬ 
tre comillas. Son enviados a destino todos los caracteres de 
esta cadena, excepto aquellos que van precedidos del sig¬ 
no que se consideran directivas de formato. 

• argumentos: Cada vez que aparece una directiva de forma¬ 
to se toma uno o varios elementos de argumentos y se los 
introduce en la cadena de salida con el formato indicado 
por la directiva. 

FORMAT tiene como efecto la creación de una cadena de sa¬ 
lida a partir de cadena y de argumentos, dando a estos últimos el 
formato especificado por las directivas. No se puede hacer aquí 
una exposición exhaustiva de las posibilidades de esta función, 
pero el lector puede hacerse una idea con los siguientes ejemplos. 

(FORMAT NIL "FOO") -> "FOO” 

(SETQ X 7) -> 7 

(SETQ Y 9) -> 9 

(FORMAT NIL "Las soluciones son "A y ~A" X Y) ->. 

-> "Las soluciones son 7 y 9" 

En este último caso se incorporan a la cadena de salida todos 
los caracteres de cadena excepto ''—A 1 '. Esta es una directiva que 
ordena imprimir un argumento sin caracteres de control, como ha¬ 
cía PRINC. El primer argumento es "X", y es éste el que se toma. 
Si hay varias directivas y varios argumentos, cada una de ellas se 
encarga de uno o varios de éstos, tomándolos de izquierda a de¬ 
recha. Existen directivas que definen el formato de los números, 
el sistema de numeración que se emplea para representarlos, 
o que introducen la orden de RETORNO, caracteres separado¬ 
res, etc. 
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Carga de ficheros 

La función LOAD permite cargar en memoria ficheros conte¬ 
nidos en un disco. Todas las expresiones que haya en esos fiche¬ 
ros son leídas e interpretadas, y retornados sus valores como si 
fueran tecleadas por el usuario. Gracias a esta función pueden 
crearse procedimientos en un editor de textos, aprovechando las 
ventajas de una de estas herramientas, y trabajar con ellos en un 
entorno LISP posteriormente. 

La sintaxis de LOAD es: 

(LOAD camino) 

donde camino es la identificación de un fichero en el árbol de di¬ 
rectorios. Ha de ser una cadena de caracteres escrita, por tanto, 
entre comillas. 



EL ENTORNO LISP 



1 entorno LISP es todo el conjunto de programas 
que hacen posible al usuario la creación, ejecu¬ 
ción y corrección de programas LISP. Está com¬ 
puesto principalmente por un intérprete que lle¬ 
va a cabo el bucle READ-EVAL-PRINT. Desde el 
intérprete se tiene acceso normalmente a un 
editor, que ayuda en la creación de los progra¬ 
mas. Pueden existir también una serie de funcio¬ 
nes auxiliares que permiten la depuración, com¬ 
pilación, gestión de memoria, etc. 


El intérprete LISP 

La base del entorno LISP es un intérprete, que puede trabajar 
en varios niveles. Al iniciarse el trabajo, se parte del nivel supe¬ 
rior (Top-Level), identificado por una señal de espera (prompt), tí¬ 
picamente un asterisco. El usuario puede comenzar a teclear pro¬ 
gramas LISP o cargarlos desde una unidad de almacenamiento. 
Las expresiones, cuando están completas, son leídas, interpreta¬ 
das y evaluadas mediante el bucle ya citado. En la pantalla apa¬ 
recen los valores retomados y la señal identificadora del sistema, 
que nos da paso para introducir nuevas expresiones. 

Cuando se produce un error o una interrupción, el intérprete 
entra en el nivel siguiente, que permite la interacción con el usua¬ 
rio. Este nivel está identificado por una señal de espera que con¬ 
tiene un 1. El usuario puede pedir información sobre el estado del 
proceso, pues las variables que estuvieran ligadas en el instante 
de la interrupción siguen estándolo. Esto facilita el proceso de de- 
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tección y corrección del error. Además, existen herramientas de 
depuración que facilitan esta tarea. 

El usuario puede ordenar la entrada del proceso en un nivel 
inferior por medio de la función 

(BREAK) 

La evaluación de esta expresión produce la detención del 
proceso y el paso al nivel inmediatamante inferior. El comporta¬ 
miento del sistema es el mismo que cuando se produce un error. 

En la figura 1 se muestra una pantalla de uno de los intérpre¬ 
tes LISP disponibles en el mercado para ordenadores personales. 


Copyright (C) 1985 by GoId Hill Compúteos 

; Reading file INIT.LSP 

Initiaí'isation file loaded. 

Type AH--H íor help 
T op-Leve 1 

* (setq X ’foo) 

FOO 

-»• 

FCO 

* (setq x foo) 

ERROR: 

Unb o und var iab1e ’ FOO 
1 > 

Back to: Top-Level 

* (break) 


BREAK, (CONTINUE) to continué. 

1 > (c o n t i n u e) 

NIL 


M Figura 1—Pantalla de un intérprete LISP para ordenador personal. 

Puede verse la señal de espera del nivel superior y la introducción 
de expresiones correctas y erróneas. 
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Puede verse la señal de espera del nivel superior, la introducción 
de una función correcta y de otra errónea, que da paso al nivel 1. 


Depuración 

En LISP existen varias herramientas de depuración, que ayu¬ 
dan al usuario en la corrección de errores en los programas. Per 

miten la ejecución paso a paso de éstos y la obtención de infor¬ 
mación sobre la marcha de los procesos. 

Las principales herramientas de depuración de programas en 
LISP son TRACE, su opuesta (UNTRACE) y STEP. 

(TRACE función! ... función N ) 

Produce el efecto de reflejar en la pantalla todas las entradas 
y salidas de función! ... función N , con los argumentos empleados. 
Ejemplos de esta macro se pueden observar en el capítulo 10. 

(UNTRACE funcióni ... función N ) 

Desactiva TRACE para funcióni... función N . En caso de que se 
llame a UNTRACE sin argumentos se considera que debe des¬ 
activarse TRACE para todas las funciones. 

STEP permite ejecutar un procedimiento paso a paso con dis¬ 
tintos niveles de detalle, controlados por el usuario de forma in¬ 
teractiva. Depende mucho de la versión del intérprete de que se 
trate, por lo que no ampliaremos aquí la descripción de esta fun¬ 
ción. 

Ayuda a la depuración la introducción de comentarios e ins¬ 
trucciones en los propios programas. En LISP también existe la po¬ 
sibilidad de introducir comentarios en los procedimientos (como 
el REM de BASIC) mediante el punto y coma (;). El intérprete ig¬ 
norará todo lo que encuentre escrito a la derecha del punto y 
coma dentro de una línea. 

La función APROPOS permite obtener los nombres de los sím¬ 
bolos que contengan una determinada cadena de caracteres. 

(APROPOS cadena-de-caracteres) 

Busca los símbolos definidos que posean en su nombre cade¬ 
na-de-caracteres y los muestra en la pantalla. No es puramente una 
herramienta de depuración, pero ayuda a evitar que un mismo 
nombre se emplee inadvertidamente para dos misiones diferen¬ 
tes. 
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Edición 

Desde el intérprete LISP se puede acceder directamente a un 
editor por medio de la función 

(ED camino) 

donde camino es una cadena de caracteres 'que especifica el ca¬ 
mino de acceso a través del árbol de directorios al fichero que 
se quiere editar. 

Esta función permite acceder al editor, cargando en él el con¬ 
tenido del fichero. Si no se especifica camino también se accede 
al editor, pero en el estado en que quedó tras la última sesión de 
edición. Las características concretas del editor dependen de la 
firma proveedora del intérprete. Generalmente suelen estar escri¬ 
tos en LISP y tienen facilidades diseñadas para la edición de pro¬ 
gramas en ese lenguaje. Uno de los más conocidos es EMACS, 
que ha estado muy ligado a COMMON LISP. 

Algunas de las características más importantes de estos edi¬ 
tores son la posibilidad de evaluar expresiones LISP editadas en 
ellos sin abandonar el editor y volver al intérprete, proveer a las 
expresiones de una indentación normalizada que ayuda a su com¬ 
prensión y ayudas al manejo de los paréntesis. 

El empleo de la indentación es particularmente importante en 
LISP. Compárense estos dos ejemplos, que muestran dos formas 
de escribir una misma función: 

(CONO ((EQUAL 3 <* N 2))(CAR ’ (A B C)))(T (COR *(B C A)))) 

(CONO ((EQUAL 3 (*N 2)) (CAR ’(A B C))) 

( T (CDR ' (B C A)))) 


Compilador 

Para acelerar la evaluación de los procedimientos LISP, éstos 
se pueden compilar, produciendo código directamente utilizadle 
por el ordenador. 

Relacionadas con esta posibilidad existen tres funciones: 
COMPILE, COMPILE-FILE y DISASSEMBLE. 

(COMPILE función) 

Se aplica a funciones LISP ya definidas y conocidas por el in¬ 
térprete. Produce una función compilada y la liga al mismo nom¬ 


bre que previamente tenía. Lógicamente, función ha de ir prece¬ 
dido de apostrofe para inhibir su evaluación. 

(COMPILE-FILE fichero) 

Produce código compilado de los procedimientos LISP con¬ 
tenidos en fichero, donde fichero, es un almacenamiento externo 
al intérprete LISP. Por tanto, fichero ha de ser un camino de acce¬ 
so a través del árbol de directorios, entrecomillado. Ese código 
compilado ha de ser cargado mediante la función LOAD. 

(DISASSEMBLE función) 

Efectúa la operación inversa de COMPILE: partiendo de fun¬ 
ción, ya compilada, produce los procedimientos LISP en el código 
inteligible al programador. 


Gestión de memoria 

Los procedimientos LISP hacen un uso intensivo de la memo¬ 
ria en el trabajo normal. Recuérdese que muchas de las funciones 
de manejo de listas crean copias de sus argumentos para después 
modificarlas; además, las llamadas a las funciones producen el es¬ 
tablecimiento de nuevas ligaduras y la reserva de posiciones de 
memoria que, al finalizar la evaluación, no serán ya accesibles. 

Se produciría rápidamente el colapso del ordenador si no se 
reorganizarán las células y posiciones de memoria no usadas y 
las que han sido utilizadas, pero ya no lo son. Esta tarea la lleva a 
cabo un procedimiento llamado GARBAGE-COLLECTOR que se 
activa cada vez que la memoria se ocupa por encima de cierto 
umbral. 

El sistema lleva la cuenta de las posiciones de memoria li¬ 
bres; puede decirse que mantiene una relación de células libres. 
Cuando la memoria se llena lo suficiente, el procedimiento traba¬ 
ja en dos fases: 

1. a Confecciona una tabla con todos los objetos LISP activos 

en ese momento y las posiciones de memoria que ocupan. 

2. a Añade todas las posiciones no utilizadas, es decir, que no 

figuran en la tabla anterior, a la lista de células libres. 

Así, pues, puede decirse que el GARBAGE-COLLECTOR rea¬ 
liza una limpieza de la memoria, eliminando posiciones que ya no 
son útiles. 


í 

El usuario también tiene cierto control sobre el GARBAGE- 
COLLECTOR mediante la función: 



(COLLECT) 

que lo invoca sin necesidad de que se sobrepase el umbral antes 
citado. 



Recomendaciones generales 

’x. 

Es recomendable que el usuario trate de restringir el empleo 

que siempre permanecen ocupando me¬ 
moria. Resulta más conveniente y acorde con la filosofía LISP el 
empleo de las ligaduras locales, que se suprimen cuando ya no 
son nenes- De acuerdo con esto es una buena práctica el em¬ 
pleo de las funciones MAKUNBOUND y FMAKUNBOUND, que eli¬ 
minan, respectivamente, las ligaduras de una variable y de una 
función cuando ya no son útiles. 

La organización preferible de un programa LISP está formada 
por un cierto número de pequeñas funciones que se llaman unas 
a otras y que resuelven aspectos parciales del problema. Esto 
hace los programas más inteligibles, y facilita su depuración. 

Por último,, hay que insistir una vez más en que debe huirse 
del empleo de las construcciones PROG. En caso de que sea con¬ 
veniente el uso de la iteración ha de recurrirse al DO. 


NOTAS FINALES 



uponiendo ya al lector en posesión de ciertos 
conocimientos básicos sobre Common LISP, el 
presente capítulo pretende justificar el empleo 
de este lenguaje, mostrando algunas de sus apli¬ 
caciones y comentando sus principales ventajas 
e inconvenientes. 


Common LISP en el mundo LISP 


Como ya se señaló en el capítulo 1, no existe una versión úni¬ 
ca del lenguaje LIDP, sino multitud de dialectos cuyas incompati¬ 
bilidades son sustanciales. Podría apuntarse como causa de este 
hecho la dispersión de los focos en donde ha madurado este len¬ 
guaje, normalmente radicados en los laboratorios de investigación 
en Inteligencia Artificial. En cada uno de ellos se tendía a mejorar 
el lenguaje adaptándolo a las necesidades propias. Esto, unido a 
la falta de primacía clara de unos dialectos sobre otros y a que 
todavía no ha terminado la evolución de los mismos, hace que sur¬ 
jan diferentes tipos de LISP. 

La versión de LISP de aceptación más generalizada fue el 
LISP 1.5, un dialecto del año 1962. En la actualidad está en desuso 
por carecer de la potencia que tienen las versiones modernas del 
lenguaje. Los dialectos más extendidos hoy en día son: MacLISP, 
Interlisp, UCI LISP y Lisp Machine LISP. 

Common LISP surge como un intento de establecer una un i 
ficación del lenguaje en el momento en que comienzan a divei 
ger los sucesores de MacLISP debido a los diferentes entornos a 
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los que deben adaptarse (ordenadores personales, ordenadores 
de tiempo compartido y superordenadores). Por tanto, puede 
decirse que Common LISP se basa en la herencia de MacLISP, 
aunque tiene gran influencia de ZetaLISP (un dialecto surgido de 
MacLISP para ordenadores personales). 

Desgraciadamente, seguirán manteniéndose algunas incom¬ 
patibilidades entre las diferentes implantaciones de Common LISP, 
ya que éstas vienen forzadas por cada entorno de trabajo. Sin em¬ 
bargo, con este lenguaje se ha pretendido tener un dialecto bási¬ 
co común que excluya los elementos que no puedan adaptarse a 
la mayoría de las máquinas, pero que permita, por otra parte, una 
implantación sencilla de las características adicionales que se juz¬ 
guen necesarias. 

Las especificaciones de Common LISP fueron establecidas 
por consenso entre un gran número de personas procedentes de 
diversas instituciones (están recogidas en el Manual de Referen¬ 
cia de Common LISP, escrito por Guy L. Steele); precisamente en 
eso se funda la idea de normalización del lenguaje con que ha sur¬ 
gido. Las modificaciones y actualizaciones del mismo se preten¬ 
de que sean lentas y realizadas tras una cuidadosa elaboración. 
Como campo de ensayo de las mismas servirán las diferentes im¬ 
plantaciones que surjan de este lenguaje. 

En cuanto a su relación con otros dialectos puede decirse que, 
en general, trata de ser compatible con ZetaLISP, MacLISP e Inter- 
lisp, aproximadamente en este orden. La fuente de incompatibili¬ 
dades puede estar no sólo en los diferentes conjuntos de primi¬ 
tivas que ofrece cada dialecto o en su diferente nomenclatura; esto 
sería fácilmente subsanable por el usuario debido a la posibilidad 
de definir de forma sencilla las funciones necesarias. Las incom¬ 
patibilidades alcanzan a veces los tipos de objetos permitidos o 
cuestiones tan básicas como el valor del CAR o del CDR de NIL 

La capacidad de cálculo depende en gran medida de la im¬ 
plantación. Como ya se comentó en el primer capítulo, las versio¬ 
nes destinadas a pequeños ordenadores todavía no son muy po¬ 
tentes. Sin embargo, hay versiones como la S-1LISP que poseen 
un compilador que genera código para cálculo numérico compe¬ 
titivo en velocidad con el obtenido de un compilador FORTRAN. 

Common LISP está también especialmente preparado para so¬ 
portar herramientas de ayuda a la construcción de aplicaciones. 

Esta visión general puede dar la impresión de un gran desor¬ 
den dentro del mundo LISP. Sin embargo, esta imagen negativa 
no tiene razón de ser, puesto que Common LISP está apoyado por 
los principales centros de investigación en Inteligencia Artificial, 
desde universidades a fabricantes de ordenadores, y por las más 
ni .portantes firmas productoras de programas Esta conjunción de 
esfuerzos está preparando las bases para un rápido desarrollo en 
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un futuro próximo, en el que se dispondrá de ordenadores de ma¬ 
yor capacidad de memoria y velocidad de proceso. 

Desarrollos basados en LISP. Máquinas USP 

En los últimos tiempos ha aparecido en el mercado un núme¬ 
ro creciente de productos basados en técnicas de Inteligencia 
Artificial. 

Cuando se trata de desarrollar una de estas aplicaciones hay 
dos posibilidades: partir de cero y construir todo el sistema apo¬ 
yándose en un lenguaje de programación o bien tratar de apro¬ 
vechar parcialmente otros desarrollos previos en el campo don¬ 
de se pretenda trabajar. 

Evidentemente, la primera opción resulta más laboriosa, pero 
en muchas ocasiones es la única alternativa por la inexistencia o 
inadaptabilidad de los programas existentes. Entre los lenguajes 
de programación, la elección de uno u otro depende de la forma 
en que se desee llegar al objetivo. En rigor, serviría cualquier len¬ 
guaje de alto nivel, pero parece más apropiado utilizar alguno de 
los más extendidos en Inteligenncia Artificial por su flexibilidad. 
Entre ellos LISP tiene un puesto destacado. 

Un entorno de programación LISP, como el proporcionado por 
ordenadores específicos (las máquinas LISP), incluye una serie de 
facilidades que lo convierten en una de las mejores opciones para 
los desarrollos en Inteligencia Artificial. Estos entomos están do¬ 
tados de una extensa biblioteca de funciones, editores específi¬ 
cos para LISP, herramientas de depuración, compiladores, siste¬ 
mas de ventanas, etc., que, además, suelen estar integrados. Esto 
último permite que se interrelacionen para ahorrar tiempo y tra¬ 
bajo en el desarrollo de las aplicaciones. 

Los fabricantes de equipos informáticos están lanzando al 
mercado diversas máquinas de este tipo. En 1981 aparecieron las 
primeras. Xerox, con sus sistema Dolphin/1100, comercializado a 
mediados de ese año; Symbolics Inc., productor de LM2, y Lisp Ma¬ 
chine Inc., fabricante de Lisp Machine, fueron los primeros en ver 
el prometedor futuro de este campo. A partir de éstos han surgi¬ 
do nuevos equipos, más evolucionados, como el sistema Lambda, 
de Lisp Machine, la máquina Symbolic 3600, de Symbolics, o el Ex¬ 
plorer de Texas Instruments y Sperry. 

Los usos de las máquinas LISP son muy diversos, Pueden ir 
desde el diseño de vídeo-juegos hasta desarrollos de visión arti¬ 
ficial o enseñanza asistida por ordenador. En todos ellos se detec¬ 
ta el fenómeno común del aumento de productividad en cuanto 
a la programación se refiere. La tendencia natural de estas máqui¬ 
nas será, por tanto, la integración con los sitemas tradicionales de 
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ordenadores, lo que permitirá a éstos el desarrollo de productos 
relacionados con la Inteligencia Artificial, así como otras aplica¬ 
ciones más convencionales. 

En caso de que no se considere adecuado el desarrollo de 
una aplicación partiendo de cero se dispone también de una se¬ 
rie de herramientas auxiliares. El número y calidad de estas he¬ 
rramientas es particularmente importante en el campo de los Sis¬ 
temas Expertos, uno de los más fructíferos de la Inteligencia Ar¬ 
tificial (remitimos al lector al volumen de la B. B. I. dedicado a la 
I. A. y los S. E.) 

Conviene recordar que un Sistema Experto pretende simular 
la actuación de un experto humano en un tema concreto. Para ello 
debe tener almacenados todos los conocimientos del experto so¬ 
bre ese tema y debe saber interpretarlos y sacar consecuencias 
de los mismos. Por lo tanto, su arquitectura típica está formada, a 
grandes rasgos, por una Base de Conocimientos y un Motor de In¬ 
ferencias. En aquélla se almacenan, de diversas formas, los cono¬ 
cimientos propios del experto. El Motor de Inferencias es el pro¬ 
grama que aplica el contenido de la Base de Conocimientos a la 
resolución de los problemas planteados. 

Hay dos tipos de herramientas de ayuda a la creación de Sis¬ 
temas Expertos: los lenguajes de representación del eonocímien- 
■ y los llamados sistemas concha. Los primeros son lenguajes de 
alto nivel y de propósito general. Han sido desarrollados especí¬ 
ficamente para aplicaciones de ingeniería del conocimiento, aun¬ 
que pueden ser útiles para una amplia variedad de campos. En 
general están construidos en LISP, con lo que tienen sus mismos 
defectos de ''ineficiencia" y gozan también de todas sus ventajas 
de flexibilidad. Los más conocidos son ROSIE, OPS-5, RLL y HEAR- 
SAY-III. Todos ellos ayudan a la construcción de Bases de Cono¬ 
cimiento, proporcionapdo la estructura básica para almacenamien¬ 
to de información. Incluyen una serie de estructuras de control 
que pueden ser consideradas como Motor de Inferencias, pero 
gran parte de las tareas de control quedan en manos del usuario. 

Respecto a los puede decirse que son siste¬ 

mas expertos en los que se ha eliminado el contenido de su Base 
de Conocimientos. Sólo queda el Motor de Inferencias y la estruc¬ 
tura donde se almacenan los datos. De aquí su nombre, que pre¬ 
tende recoger la idea de una estructura vacía. Con ellos se traba¬ 
ja a un nivel más alto que el de la programación. Se ahorra, pues, 
la mayor parte del esfuerzo necesario para crear la aplicación, 
pero como contrapartida se produce una pérdida de flexibilidad, 
que se hace notoria cuando el campo en el que se trabaja no se 
asemeja demasiado al problema para el que se desarrolló la con¬ 
cha. Entre los más conocidos están EMYCIN (derivado de MYCIN, 
sistema utilizado para el diagnóstico de enfermedades infeccio- 
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sas en la sangre), KAS (creado a partir de PROSPECTOR, que in 
terpreta datos geológicos y ha sido utilizado para descubrir yaci 
mientos de minerales) y EXPERT (derivado de CASNET, que hace 
diagnósitco y terapia del glaucoma). 

LISP: ventajas e inconvenientes 

Al llegar a este punto puede parecer ocioso dedicar un apar¬ 
tado a juzgar las ventajas e inconvenientes del LISP cuando las 
principales han sido ya señaladas anteriormente. Sin embargo, es 
interesante analizarlas con más detenimiento. 

Para comenzar, conviene dejar bien claro que, en lo referente 
a eficiencia de ejecución y de utilización de recursos, el lenguaje 
de programación LISP sigue a la zaga de otros menos flexibles. Lo 
que hace que la balanza pueda terminar volcándose de su lado 
es el descenso del precio de los equipos informáticos y la mayor 
incidencia en el coste total de un proyecto del tiempo dedicado 
al desarrollo y mantenimiento de los programas. Dicho de otro 
modo, para hacer que un programa escrito en LISP sea tan efec¬ 
tivo como un programa con el mismo cometido, escrito en FOR¬ 
TRAN. deben utilizarse equipos más caros. Sin embargo, este gas¬ 
to extra en material se ve compensado con creces por el ahorro 
en el trabajo de desarrollo del programa. 

La flexibilidad de LISP radica en el almacenamiento en me¬ 
moria de los datos y programas como elementos no secuencialts 
unidos por punteros FORTRAN y otros lenguajes, por el contrario, 
almacenan sus datos e instrucciones en posiciones de memoria 
secuenciales. Esto conlleva que tras añadir una línea a un progra¬ 
ma, un elemento a una matriz, o, simplemente, modificar el tipo de 
una variable, debe compilarse y montarse de nuevo todo el pro¬ 
grama. Si se trata de un programa de tamaño medio esto puede 
tardar algunos minutos. Sin embargo, en LISP, para hacer una mo¬ 
dificación similar, el intérprete sólo debe cambiar unos cuantos 
punteros y añadir algunas células constructivas, operaciones que 
se hacen casi instantáneamente. 

La mayor flexibilidad se cobra su precio en espacio de me¬ 
moria / ¡lempo de ejecución los programas en LISP ocupan el do¬ 
ble que en FORTRAN. En este lenguaje, la velocidad se ve muy 
favorecida por el almacenamiento secuencial. Para acceder a una 
determinada posición basta con situarse al comienzo del bloque 
que la contiene y buscar dentro de él. En LISP deben recorrerse 
muchos niveles de punteros hasta llegar a la posición buscada, 
con lo que la velocidad viene a reducirse a la mitad. 

En las versiones modernas de LISP se utilizan dos técnicas 
para paliar estos defectos. Un primer método consiste en repre- 
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sentar las instrucciones y direcciones de memoria con un mayor 
número de bits. Esto permite incorporar en cada instrucción infor¬ 
mación que facilite la localización de la siguiente. 

Otra técnica emplea secciones contiguas de memoria para al¬ 
macenar los elementos que así lo requieran, por ejemplo las ma¬ 
trices. De este modo se facilita el acceso a su contenido partiendo 
de su primer componente. Las características generales de la me¬ 
moria no quedan modificadas, porque estos elementos están uni¬ 
dos a los demás sólo por un puntero. 

Otras características de flexibilidad que restan eficiencia son 
la definición del tipo de las variables yja asignación de memoria 
para ellas durante la ejecución. En lenguajes compilados como 
FORTRAN o PASCAL, el compilador comprueba que los tipos de 
datos son los adecuados para las operaciones que van a realizar¬ 
se con ellos y les asigna la cantidad de memoria que se indica 
en su declaración de tipo o de dimensiones. LISP realiza estas ta¬ 
reas durante la ejecución, por lo que invierte gran cantidad de 
tiempo en multitud de comprobaciones. De nuevo la solución a 
esto es la modificación del equipo. Si se representan los datos con 
más bits se dispone de espacio adicional para almacenar el tipo 
con lo cual la comprobación es simultánea al acceso a la informa¬ 
ción. 

LISP presenta ciertas particularidades en lo tocante a la re¬ 
presentación de la información. Al ser la misma para programas 
y datos, los programas pueden modificarse a sí mismos o crear 
otros programas. Estos pueden, incluso, compilarse sin perjudicar 
el funcionamiento del conjunto. 

El eficiente manejo de los símbolos facilita enormemente el 
diseño de programas que se relacionen con el mundo real. Si se 
trata de una aplicación en el campo de la electrónica, por ejem¬ 
plo, es posible definir como tipo de datos un transistor, escribien¬ 
do una función que simule su comportamiento y describa sus ca¬ 
racterísticas principales. Una vez hecho esto es posible olvidar su 
representación intema al trabajar con este transistor abstracto. Es 
posible definir otros objetos partiendo de los ya existentes; así se 
podría simular algún circuito electrónico cuyos componentes fue¬ 
ran, entros, elementos del tipo TRANSISTOR. 

Para terminar, debe destacarse la característica interactiva del 
lenguaje, que ofrece una alternativa al método convencional de 
programación. En FORTRAN, por ejemplo, lo normal es escribir 
todo un programa o, por lo menos, un módulo del mismo, antes 
de probarlo y depurarlo. Una vez probado suele ser necesario mo¬ 
dificarlo, compilarlo y montarlo de nuevo, para probar los cam¬ 
bios introducidos. En LISP, sin embargo, lo normal es empezar a 
escribir pequeñas funciones que van siendo probadas y modifi¬ 
cadas en el momento de su creación. Según se avanza en la con¬ 
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cepción del programa se van usando los procedimientos creados 
en las primeras fases. El programador en LISP tiene, por tanto, ma¬ 
yor libertad para experimentar y crear. 

En resumen, puede decirse que, a pesar de su ineficiencia en 
el manejo de los recursos del ordenador, LISP permite desarrollai 
con mayor eficacia los recursos creativos del programador huma¬ 
no, y esto es lo que a medio plazo tendrá más peso a la hora de 
elegir un lenguaje para el desarrollo de una aplicación informática. 
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DICCIONARIO DE LOS TERMINOS INGLESES MAS 
FRECUENTES EN LA BIBLIOGRAFIA SOBRE USP 



n esta obra se ha hecho un especial esfuerzo por 
evitar el empleo de terminología anglosajona. 
Para facilitar el manejo de la bibliograña reco¬ 
mendada se incluye aquí un breve diccionario 
de referencia con los términos más frecuentes e 
importantes. 


Atributo. Slot 

Bucle. Loop 

Cadena de caracteres. String 

Camino hacia el fichero. Pathname 

Canales. Stream 

Compilar. To compile 

Célula constructiva (o elemental). Cons cell 

Forma especial. Special form 

Implantación.'•. Implementation 

Ligadura. Binding 

Lista de asociación*. Association list 

Lista de propiedades. Property list 

Marca (etiqueta o señal)**. Tag 

Matriz. Array 


* También ha sido citada en la forma de empleo de listas como, 
tablas. 

** Utilizada en las expresiones del tipo (GO marca). 
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Montar. 

Nivel superior. 

Puntero. 

Señal de espera. 

Variable no ligada 


To link 
Top level 
Pointer 
Prompt 

Unbound variable 
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LOCALIZACION DE LAS FUNCIONES, FORMAS 

ESPECIALES YMACROS 



ncluimos a continuación el índice alfabético de las 
funciones, formas especiales y macros empleadas 
en esta obra, con la indicación del capítulo en que 
se introducen. 


Nombre Capítulo Nombre Capítulo 


AND 7 

APPEND 4 

APPLY 5 

APROPOS 13 

ASSOC 6 

ATOM 4 

BOUNDP 5 

BREAK 13 

CADDR 4 

CAR 4 

CDR 4 

CLOSE 12 

COMPILE 13 

COMPILE-FIL 13 

COND 1 


CONS 4 

COPY-nombre 11 

DEFSTRUCT 11 

DEFUN 
DELETE 
DELETE-DUPL 
DELETE-1F 
DELETE-IF-N 
D1SASSEMBLE 
DO 
DO* 

ED 

EIGHTH 
ENDP 
EQ 
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cncococococococo 







Nombre 


Capítulo Nombre 


Capítulo 


EQL 

6 

NINTH 

4 

EQUAL 

6 

NOT 

7 

EQUALP 

6 

NREVERSE 

6 

EVAL 

3 

NSET-DIFFER 

6 



NTH- 

4 

FBOUNDP 

5 



FIFTH 

4 

NULL 

4 

FIRST 

4 

NUMBERP 

7 

FMAKUNBOUND 

5 

NUNION 

6 

FORMAT 

12 



FOURTH 

4 

OPEN 

12 

FUNCALL 

10 

OR 

7 

FUNCTION 

5 



GET 

11 

POP 

6 

GETF 

1*1 

PPRINT 

12 

GO 

8 

PRIN1 

12 



PRINC 

12 

IF 

7 

PRINT 

12 

INTERSECTIO 

6 

PROG 

8 



PROG1 

8 

LAMBDA 

5 

PROG2 

8 

LAST 

4 

PROGN 

8 

LET 

8 

PUSH 

6 

LET* 

8 



LIST 

4 

QUOTE 

3 

LISTP 

4 



LOAD 

12 

READ 

12 

LOOP 

8 

REMF 

11 



REMOVE 

6 

MAKE-nombre 

11 

REMOVE-DUPL 

. 6 

MAKUNBOUND 

5 

REMOVE-IF 

6 

MAPC 

9 

REMOVE-IF-N 

6 

MAPCAN 

9 

REMPROP 

11 

MAPCAR 

9 

REST 

4 

MAPCON 

9 

RETURN 

8 

MAPL 

9 

REVERSE 

6 

MAPLIST 

9 

RPLACA 

6 

MAX 

5 

RPLACD 

6 

MEMBER 

6 



MEMBER-IF 

6 

SECOND 

' 4 

MOD 

10 

SETF 

5 



SETO 

5 

NCONC 

6 

SET-DIFFERE 

6 

NINTERSECTI 

6 

SEVENTH 

4 
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Nombre 


Capítulo Nombre 


Capítulo 


SIXTH 

4 

SQRT 

5 

STEP 

13 

TENTH 

4 

TERPRI 

12 

THIRD 

4 

TRACE 

13 

TRUNCATE 

10 

UNION 

6 

UNLESS 

7 

UNTRACE 

13 


WHEN 7 

WRITE 12 

YES-OR-NO-P 12 

ZEROP 8 

* 

+ 

/ 

< 

> 
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unque es uno de los lenguajes de progra¬ 
mación más antiguos (finales de los cin¬ 
cuenta) es ahora cuando LISP comienza a 
despertar verdadero furor en el mundo de 
la informática. La razón estriba fundamen¬ 
talmente en sus aplicaciones en el campo 
de la Inteligencia Artificial, el abarata¬ 
miento de los potentes equipos que pre¬ 
cisa y el creciente coste del tiempo de programación. 

Mucho más flexible que lenguajes de alto nivel tan cono¬ 
cidos como BASIC, FORTRAN o PASCAL es, además, su¬ 
mamente fácil de aprender, con un característico uso de 
los paréntesis. 

En esta obra pretendemos adentrarle en el mundo del 
LISP presentándole toda la teoría necesaria arropada por 
constantes y precisos ejemplos, escritos en COMMOM 
LISP, dialecto que se está perfilando como el estándar de 
este lenguaje. 



395 pts. 

(incluido IVA) 



